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この CASL 基本 文法 ハン ドブ ッ ク は 。 
CASL の 初心 者 か ら 中 級 者 ま て を 対象 
に , プロ グラ ミン グ 上 の 規則 や 共 本 命 
令 の 使い 方 な ど を 解説 し た も の で す 。 
初心 者 の か た は , 最初 か ら 央 に 読ん で 
くだ さい 。CASL を 系 統 的 に わか りや 
すく 解説 し て あり ます 。 中級 者 の か た 
は ,、 リフ ァ レ ンス マニ ュ ア ル と し て 利 


徹 


用 し て くだ さい 。 

この ハン ドブ ッ ク は , 英語 の 勉強 に た 
と えれ ば 単語 由 の よう な も の で す 。 本 
誌 の 連載 議 座 で プロ グラ ミン グ テ ク ニ 
ッ ク と し て 解説 し て いる 命令 の セ モット 
が , 数 語 に 相当 し ます 。 ハ ンド ブック 
と 本 誌 の 講座 と を 効果 的 に 活用 し , 学 
習 を 進め て くだ さい 。 


ラベ ル 名 (ラベ ル 名 に 対応 する 番地 を 示す ) また は 10 進 定数 (た だ 
し , 32768 ミ adr き 65535 と する 。adr は アド レス と し て 0 て 65535 の 値 を 
も つが , 32768 て 65535 の 値 を 負 の 10 進 定 数 で 記述 する こと も で きる 


adr と XR の 内 容 と の アド レス 加算 1 値 ま た は その 値 が 示す 番地 


X 番地 の 内 容 。X が レジ スタ の 場合 は レジ スタ の 内 容 
] 


[ [ ] に 囲ま れ た 部 分 は , 省略 可能 で ある こと を 示す 
XR を 省略 し た 場合 は , 指標 レジ スタ に よる 修飾 を 行わ な い 
病 令 の 書き 方 


擬似 命令 マク ロ 命 令 , 機械 語 命令 は , ラベ ル 抽 , 命令 コー ド 桶 , オ 
ペラ ンド 柚 , 注釈 柚 を も ち , 各 拉 は , 次 の と お り 定 し ます 。 


ら ラ ベル の 文字 数 分 (最大 6 文字 ) 


ラベ ル 欄 | 第 1 文字 か 


命令 コー ド 欄 | の ラベ ル を 付け な いと き 一 一 第 2 文字 以降 , 任意 の 文字 位置 か ら 
⑥ ラ ベル を 付け た と き ーー ラ ベル に 続け て , 少な く と も 1 つの 空白 を 
置い た あと , 任意 の 文字 位置 か ら 


オペ ラン ド 和 醒 | 命令 コー ド に 続け て , 少な く と も 1 つの 空白 を 置い た あと , 第 72 文 字 
まで と する 。 次 の 行 に 継続 する こと は で き な い 


行 中 に セミ コロ ン (: ) が ある と , それ 以降 の 行 の 終わ り ま で 注釈 と 
し て 扱う (た だ し , DC 命令 の 文字 列 中 の 「 : 」 を 除く ) 
な お , 第 1 文字 位置 に 「 : 」 が ある 場合 , ま た は 「: 」 の 前 に 空白 し 
か な い 場 合 は その 行 全体 を 注釈 と し て 扱う 
注釈 抽 に は , 処理 系 で 許す 任意 の 文字 を 書く こと が で きる 


CA@ 本 和書 の 読み 方 


y 病 令 の 形式 
① R-M (レジ スタ ー メ モリ ) 形式 


(ネネ ネネ ※ は 命令 コー ド ) 
R-M 形 式 の 命令 に は , LD, ST, LEA, ADD, SUB, AND, OR, EOR, 
CPA, CPL, SLL, SRL, SLA, SRA 命 令 が あり ます 。 
② M (メモ リ ) 形式 


lee lrettt etm {0〈W 


M 形式 の 命令 に は , JPZ, JMI, JNZ, JZE, JMP, PUSH, CALL 命 
令 が あり ます 。 
③ そ の 他 の 形式 

その 他 の 形式 と し て 次 の 命令 が あり ます 。 


[label] 

[label] 空白 

[label] 空白 

label [実行 開始 番地 ] 


空白 空白 

[label] 定数 

[label] 領域 の 語 

[label] 入力 償 域 。 入力 文字 長 
[label] 出力 償 域 。 出力 文字 長 


† アド レス 加算 : 被 演算 アー タ を 符号 の な い 数 値 と みな し , その 和 
を 65536 で 割っ た 剰余 ( 和 の 下位 16 ビ ッ ト ) を 値 と する 。 ア ドレ ス 
減算 も これ に 準じ た 定義 と する 。 


本 書 の 読み 方 @CA 
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ハー ドウ ェ ア *COMET の 仕様 


① COMET は , 1 語 16 ビ ッ ト の 計算 機 で あっ て , アク セス で きる ア 
ドレ ス は 0 番地 か ら 65535 番 地 ま で で ある 。 
② 1 主 の ビ レン ト 構 成 は 次 の と お り で ある 。 


0 1 2 3.4 5 . 67 8 9 10 1 12、13 12』15 ニ 一 一 ビッ ド 番 号 
符号 ( 負 : 1, 非負 : 0) 


③ 数 値 は 。 16 ビ ッ ト の 2 進数 に より 表現 する 。 負 数 は 2 の 袖 数 表記 
で 表す 。 

④ 制 御方 式 は 逐次 制御 で , 2 語 長 の 命令 語 を も つ 。 

レジ スタ と し て , GR (16 ピ ビット), PC (16 ビ ピット ), FR (2 ビッ 
ト ) を も つ 。 

GR (汎用 レジ スタ General Register) は 5 個 あ り , 汎用 レジ ス 
タ 0 番 か ら 4 番 ま で と する 。 こ の 5 個 の レジ スタ は , 算術 演算 , 
論理 演算 。 比較 演算 。 シ フト 演算 な ど に 用 いる 。 こ の うち , 1 番 
か ら 4 番 ま で の レジ スタ は , 指標 レジ スタ (index register) と し て 
も 用 いる 。 さらに, 4 番 の レジ スタ は , スタ ッ ク ポ イン タ (stack 
pointer) と し て も 用 いる 。 

スタ ッ ク ポ イン タ は , スタ ッ ク の 最上 段 (stack topp) の アド レス 
を 保持 し て いる レジ スタ で ある 。 

PC (プロ グラ ムカ ウン タ Program Counter) は , 実行 中 の 命令 
語 の 先頭 アド レス を 保持 し , 命令 の 実行 が 終わ る と 、 次 に 実行 す 
る 命令 語 の 先頭 アド レス が 設定 され る 。 一 般 に , 命令 の 実行 が 終 
わる と PC に 2 が アド レス 加算 され , 分 岐 . コー ル , リ ター ン 命 令 
の 場合 は , 新た に 分 岐 先 の アド レス が 設定 され る 。 


COMET の 仕様 CA 


FR (フラ グレ ジス タ Flag Register) は 、 ロード アド レス 命令 お 
よび 算術 , 論理 . シ フト の 各 演 算命 令 の 実行 の 結果 , GR に 設定 さ 
れ た デー タ が , 負 , ゼロ , 正 の いずれ で ある か に つい て の 情報 , 
また は , 比較 演算 命令 の 実行 に より 得 ら れ た , 2 数 間 の 大 小関 係 
に つい て の 情報 を 保持 する 。 

すなわち , 実行 結果 に より , FR は 次 の 表 の と お り に 設定 され る 
(た だ し , 比較 に つい て は 本 文 の 比較 演算 命令 参照)。 


上 の 表 で , 負 は GR の 符号 ビッ ト が 1, ゼロ は GR の 全 ビ ッ ト が 
0, 正 は 符号 ビッ ト が 0 で か つ ゼ ロ で な い デ ー タ を いう 。 

FR の 第 1 (左端 の ) ビッ ト は GR の 符号 を 示し , 第 2 ビッ ト は 
GR が ゼロ か 否 か を 示す 。 

FR の 値 は , 条件 付き 分 岐 命令 で 参照 する 。 

ロー ドア ドレ ス , 算術 , 論理 . シフ ト 以 外 の 命令 の 実行 に よっ 
て , FR の 値 は 変更 され な い 。 

⑥ 命 令 語 の 構成 

2 語 長 の 命令 語 を も つ 。 そ の 構成 に つい て は 定義 し な い 。 


CACOMET の 仕様 


ら T「AHT 病 令 srAsr 


y 書き 方 例 (その 他 の 形式 ) 


y 病 令 の 機能 
① プ ログ ラム の 先頭 を 定義 する 。 
プロ グラ ム の 実行 開始 番地 を オペ ラン ド の ラベ ル で 定義 する 。 
⑨ 副 プロ グラ ム の 場合 , ラ ベル 名 で 入口 名 を 定義 する 。 
④ START 命令 は 擬似 命令 で , 命令 語 (機械 語 ) に は 変換 され な 
い 。 
y 解説 
プロ グラ ム の 最初 に は , 必ず START 命令 を 書か な けれ ば な ら な 
ぃ 。START 命令 に は , ラベ ル を 書か な けれ ば な ら な い 。 
ラベ ル は 6 文字 以内 で , 先頭 の 文字 は 英 大 文字 で な けれ ば な ら な 
。 それ 以降 の 文字 は 英 大 文字 。 数 字 の いずれ で も よい 。 
は 、 こ の 定義 きれ て いる ラベ ル 名 と 
し , オペ ラン ド で 指定 し た ラベ ル 名 か ら 実 行 が 開始 され る 。 ラ ベル 
名 ea し た 場合 は ,、 プロ グラ ム の 先頭 か ら 実 行 が 開始 され る 。 
書き 方 @ の 例 が 到 プロ グラ ム と する と , ラベ ル EX02 が 副 プ ログ 
ラム の 入口 名 で , ラベ ル SOET 番地 か ら 実 行 さ れる 。 
な お , ほか の プロ グラ ム か ら 副 プロ グラ ム EX02 を 呼ぶ に は , 
CALL EX02 


擬似 命令 CA 


END 命 令 gn 


P 書き 方 例 (その 他 の 形式 ) 


END 
Py 命令 の 機能 
① プ ログ ラム の 終わ り を 定義 する 。 
プロ グラ ム は , START 命令 に 始ま り , END 命令 で 終わ る 。 
③ END 命令 で は , ラベ ル 抽 も オペ ラン ド 届 も 空白 で な けれ ば な ら 

な い 。 
④ END 命令 は 擬似 命令 で , 命令 語 (機械 語 ) に は 変換 され な い 。 
y 解説 

START 命令 と END 命令 の 間 が プロ グラ ム 単 位 と な る 。 

主 プ ログ ラム と 副 プ ログ ラム に は , と も に 必ず START 命令 と 
END 命令 を 書か な けれ ば な ら な い 。 さらに, この 2 命令 は , CASL 
処理 系 の アセ ンプ ブラ 部 分 に , 二 介 2 ログ ラム の 始ま り と 終わ り を 指 
示す る 命令 で ある か ら , 命令 語 に 変換 され な い 。 一 方 , EXIT 命令 
は , CASL 処理 系 の シミ ュ レ ーション 部 分 に , 目的 プロ グラ ム の 実 
行 終了 を 示す 命令 で ある か ら , 命令 語 に 変換 され る 。FORTRAN 言 
語 の STOP 命令 が EXIT 舎 令 に 対応 する 。 


主 プ ログ ラム 玉 プ ログ ラム 


CA 擬似 命令 


の 
DO 命 "本 Define Constant 


y 書き 方 例 (その 他 の 形式 ) 


L1234 DC 


y 癌 令 の 機能 

定数 で 指定 し た 定数 デー タ を 格納 する 。 定 数 に は , 10 進 定数 , 16 
進 定数 , 文字 定数 ペア ドレ ス 定 数 の 4 種類 が ある 。 

y 解説 

例 に あげ た ( イ ) の DC 命令 は , 10 進 数 値 1234 を 1 語 の 2 進数 デー 
タ と し て 格納 する 。 た だ し , オペ ラン ド で 指定 し た 10 進 数 値 が , 一 
32768 一 32767 の 範囲 に な いと き は , その 下位 16 ビ ッ ト を 格納 する 。 

次 の ( ロ ) の DC 命令 は 。 4 けた の 16 進 数 X *1234′ を 1 語 の 2 進 
デー タ と し て 格納 する (X ヾ 0000* ミ 16 進 数 値 ミ ヌ *FFFE?)。 

( ハ ) の DC 命令 は , 文字 列 の 左端 か ら 1 文字 ずつ , 連続 する 語 の 下 
位 8 ビッ ト に 文字 デー タ を 格納 する 。 す な わ ち , 最初 の 文字 " 1 "は 
第 1 語 の 第 8 15 ビット に , 2 番目 の 文字 "2 "は 第 2 語 の 第 8 一 15 
ビ ピット に …… と 順次 , 文字 列 の 文字 数 分 , 文字 デー タ を 格納 する 。 
各 語 の 第 0 7 ビ ピット に は 0 の ビッ ト が 入る 。 文字 列 に は , 間隔 お 
よび 任意 の 図形 文字 (次 ペー ジ の 表 参 照 ) を 書く こと が で きる 。 た 
だ し , 文字 列 中 に アポ スト ロフ ィ (”) は 書け な い 。 ア ポス トロ フィ 
を 定義 する に は , 次 の いずれ か の 方 法 を 用 いる 。 

APOS DC 0027 
DC 99 


擬似 命令 CA 


さら に , 文字 列 の 長 さ は 0 (文字 列 が 空 ) で あっ て は な ら な い 。 
表 JIS C6220 文 字 コ ー ド 表 の 一 部 


| We 
HES6SSSESSE | 
A 


人 
1 


| 


[ 


に 3 


( ニ ) の DC 命令 は , ラベ ル 名 (L1234) に 対応 する アド レス 値 を 1 
語 の 2 進 デ ー タ と し て 格納 する 。 ラ ベル 1234 番 地 を 100 番 地 と する 
と , 例 に あげ た DC 命令 に よっ て , 主 記憶 装置 の 記憶 内 容 は 次 の よう 
に な る 。 

101 番 地 1234 
106 番 地 L1234 


CA 擬似 命令 


| ら 命 令 Define Sorage 
y 書き 方 例 (その 他 の 形式 ) 


ラッ | sws-r| 


Py 病 令 の 機能 

① 指 定 し た 語数 の 領域 を 確保 する 。 領 域 の 語数 は , 10 進 定数 (= 0 ) 
で 指定 する 。 

②@ 領 域 の 語数 を 0 と し た 場合 , 領域 は 確保 し な い 。 た だ し , ラベ ル 
揃 の ラベ ル 名 は 有効 で ある 。 


y 解説 
いま , A 番地 が 300 番 地 と する と , 例 に あげ た DS 命令 に よっ て 次 
の よう に 記憶 領域 が 割り 当て られ る 。 
ラベ ル A 300 番 地 生ま イ SE NOY 
302 番 地 ? 7601 7 ? 
303 番 地 ? ?2 ? ? 


ラベ ル A 番地 は 1 語 分 確保 さき れる 。 ラ ベル B 番地 は , 配列 B と し 

3 語 分 確保 きれ る 。 と ころ で , ラベ ル B の アド レス に は , の 
先頭 番地 で ある 301 番 地 が 割り 当て られ る 。 ラベ ル C は , 命令 語 に 変 
換 す る アセ ンプ ブラ の ラベ ル 表 に , 304 番 地 と だ け 登 録 さ きれ る 。 これ を 
利用 する と , ユー ザ ス タ ッ ク 領 域 を 100 語 分 確保 する と き に , 次 の よ 
うに し て ラベ ル を 付け る こと が で きる 。 

DS 100 
STACK DS 0 


似 命令 ⑩CA 


LD 命 令 LoaqD 


y 書き 方 例 (R-M 形 式 ) 


GR0, ABC 
GR1, BCG, GR2 


y 命令 の 機能 

① 実 効 ア ドレ ス の 記憶 内 容 を , 指定 し た レジ スタ に 設定 する 。 

② LD 命令 を 実行 し て も , フラ グレ ジス タ (FR) の 内 容 は 変化 し な 
い 。 

y 解説 

第 1 オペ ラン ド で , 使用 する レジ スタ を 指定 する 。 第 2 オペ ラン 
ド , 第 8 オペラ ンド で , 実効 アド レス を 指定 する 。 第 3 オペ ラン ド 
が ある 場合 は , 第 3 オペ ラン ド で 指定 し た 指 模 レ ジス タ で , アド レ 
ス 修飾 する 。 

最初 の LD 命令 を 実行 する と , ラベ ル ABC 番地 の 記憶 内 容 が GR 
0 に 設定 され る 。 次 の LD 命令 は , GR2 を 指標 レジ スタ と し て アド レ 
ス 修飾 する 。 た と えば , GR2 の 内 容 が 5 と する と , 実効 アド レス は , 

ラベ ル BCG 十 (GR2) = ラベ ル BCG+5=BCG( 5 ) 番地 

第 2 オペ ラン ド 第 3 オペ ラン ド 
と な る 。 結 局 , LD 命令 に よっ て , 配列 BCG( 5 ) 番地 の 記憶 内 容 が 
GR1 に 設定 され る 。 

LEA 命令 で は 実効 アド レス の アド レス 値 が レジ スタ に 設定 され 
る の に 対し て , LD 命令 で は 実効 アド レス の 記憶 内 容 が レジ スタ に 
設定 され る 。 さら に , LEA 命令 で は レジ スタ に 設定 し た 値 に より フ 
ラグ が 設定 され る の に 対し て , LD 命令 で は フラ グ は 変化 し な い 。 


CA ロー ド , スト ア 命 令 


本 癌 令 STore 


y 書き 方 例 (R-M 形 式 ) 


GR3, NHK 
1 YTV, 2 


y 凍 令 の 機能 
① 指 定 し た レジ スタ の 内 容 を , 実効 アド レス が 示す 記憶 場所 に 格納 
ESP 
② ST 命令 を 実行 し て も , フラ グレ ジス タ (FR) の 内 容 は 変化 し な 
い 。 
y 解説 
ST 命令 は LD 命令 と 送 の 働き を する 。 最 初 の ST 命令 で は , GR 
3 2 ドレ ス で ある ラベ ル NHK 番地 に 格納 する 。 
T 命令 を 実行 し て も , フラ グレ ジス タ と 同様 。 レ ジス タ の 内 容 も 
0 
レジ スタ を 指定 する に は , 「GR *」 の よう に フル ネー ム で 指定 し 
て も よい し , 「2」 の よう に レジ スタ 番号 だ け で 指定 し て も よい 。 


レジ スタ の 記号 に よる 指定 | 汎用 レジ スタ 番号 


0 
1 
2 
3 
4 


ラベ ル TBS 番地 の ST 命令 を 実行 する と, GR1 の 内 容 が 配列 
YTV(GR2) 番地 に 格納 され る 。 し か し , GR1 と フラ グレ ジス タ の 内 
容 は 変化 し な い 。 


ロー ド , スト プア 命令 CA 


LEA 人 命令 Load Effective Address 


y 書き 方 例 (R-M 形 式 ) 


LEA 
LEA 
LEA 
LEA 


GR0, 0 j ( イ ) 
GR1, 1 GR1 j ( ロ ) 
GR2,-1, GR2 :( ハ ) 
GR3, ABC j ( 二 ) 


Py 命令 の 機能 

① 実 効 ア ドレ ス の アド レス 値 を , 指定 し た レジ スタ に 設定 する 。 

② 命 令 実 行 後 の レ ジス タ の 内 容 に より , フラ グレ ジス タ を 設定 する 。 
y 解説 

行 中 に セミ コロ ン (:) が ある と , それ 以降 , 行 の 終わ り ま で 注 
釈 と し て 扱う (た だ し , DC 命令 の 文字 列 中 の 「:」 を 除く )。 な 
お , 第 1 文字 位置 に 「: 」 が ある 場合 ,、 ま た は 「:」 の 前 に 空白 し 
か な い 場 合 は 、 その 行 全体 を 注釈 と し て 扱う 。 注釈 繝 に は , 処理 系 
で 許す 任意 の 文字 を 書く こと が で きる 。 

( イ ) の LEA 命令 の 実効 アド レス は , 0 番地 で ある か ら , アド レス 
値 0 が GR0 に 設定 され る 。 こ の 命令 実行 後 ,GRO0 が 0 に な り , フラ 
グレ ジン スク HBR 三 FTO1WG な る 。 

( ロ ) の LEA 命令 の 実効 アド レス は , { 1 十 (GR1))} 番 地 で ある 。 そ 
こ で , GR1 の 内 容 を ( 十 1) イン クリ メン ト し た アド レス 値 が GR1 
に 設定 され る 。GR0 を 除く レジ スタ の 内 容 を ( 十 1) イン クリ メン 
ト す る と き に , 

LEA GR *,。 1 GR * (* は 1 一 4) 
の 命令 を 使う 。 


( ハ ) の LEA 命令 は ( ロ ) と 逆 に (一 1) ディ クリ メン ト す る と き 


CA ロー ドア ドレ ス 命 令 


に 使う 。GR0 は , 指標 レジ スタ と し て 使用 で き な い の で , この 形式 
の LEA 命令 で イン クリ メン ト , ディ クリ メン ト で き な い 。 

( ロ ) (〉) の 命令 実行 後 , レジ スタ の 内 容 に より フラ グレ ジス タ が 
変化 する 。 ア ドレ ス が 負 と いう の は あり えな い が , 設定 され る アド 
レス 値 と , その 命令 実行 後 の レ ジス タ , フラ グレ ジス タ の 関係 を 表 
に する と 次 の よう に な る 。 


0 


00000000000000000 


LD GR *。A (* は 0 一 4) 
LEA GR ※。 0, GR* (* は 1 一 4) 

LEA 命令 に よっ て , フラ グレ ジス タ が 変化 する の を 利用 し ,. 上 の 
2 命令 に よっ て , ラベ ル A 番地 に 記 層 され て いた 値 の 正 , ゼロ , 負 
の 情報 を フラ グレ ジス タ に 設定 で きる 。 こ の と き の LEA 命令 は , 
NOP (No OPeration: 何 も し な い ) 命令 だ が , フラ グレ ジス タ が 変 
化す る 。 こ の よう な NOP 命令 は , LEA 以外 の 命令 で も 作れ る 。 

LEA GR$,。 0, GR * ( $ は 0 一 4, 

* は 1 一 4) 

は , ソー スレ ジス タ (GR *) の 内 容 を ディ ステ ィ ネ ーション レジ ス 
タ (GR $) に 転送 する , レジ スタ ー レ ジス タ 転 送 命令 で ある 。 

( ニ ) の 命令 を 実行 する 前 , ラベ ル ABC 番地 が 100 番 地 で , その 記 
憶 内 容 が 500 と する と , LEA 命令 の 実行 に よっ て , GR 3 は 100 に な 
る 。 また , LEA 命令 の 代わ り に , LD 命令 を 用 いる と , GR 3 に は ラ 
ベル ABC 番地 の 記憶 内 容 が 設定 され , 500 に な る 。 こ の 2 命令 の 悦 
い を よく 理解 し て お こう 。 


1 一 32767 


32768 一 65535 (* は 0 か 1) 


ロー ドア ドレ ス 命 令 @CA 


eg の 
ムロ DD 命 負 ADD qrithmetic 
P 書き 方 例 (R-M 形 式 ) 
ADD GR0, PC9801 :( イ ) 
ADD GR1, IBM555, GR2 )( 口 ) 
Py 硬 令 の 機能 
① 指 定 し た レジ スタ の 内 容 と 実効 アド レス の 記憶 内 容 を 算術 加算 し , 
指定 し た レジ スタ に 結果 を 設定 する 。 
② 演 算 結 果 に より , フラ グレ ジス タ を 設定 する 。 
Py 解説 
GR0 の 内 容 が 100 で , ラベ ル PC9801 番 地 の 記 億 内 容 が 一 20 の と 
き , ADD 命令 を 実行 する と GR0 の 内 容 は 図 の よう に 変化 する 。 


ラベ ル P 1 番 } 


erimiehioWl ニ 
記憶 内 容 I 選 介 ) 作 呈 1 参 間 凍 全 0741.040 20 
GR0 0000.000001010000 80 


フラ グレ ジス タ は , 演算 結果 に 従っ て 次 の よう に 設定 され る 。 
演算 結果 の レジ スタ の 内 容 フラ グレ ジス タ の 内 容 
(* は 0 か 1 ) 
( 口 ) の ADD 命令 は , 実効 アド レス で ある 配列 IBM555 (GR2) の 
記憶 内 容 を GR1 に 算術 加算 する 。 指標 レジ スタ で ある GR2 の 内 容 
(りー 【 請 み Goxc と 変化 させ な が ら , この ADD 命令 を 繰り 返す こと 
に より , 配列 デー タ の 総和 を 求め あこ と が で きる 。 


CA 算術 演算 命令 


UB 命 令 SUBfract griihmefic 


ぁ 書き 方 例 (R-M 形 式 ) 


GR3, A, GR1 


y 命令 の 機能 
① 指 定 し た レジ スタ の 内 容 か ら 実 効 ア ドレ ス の 記憶 内 容 を 算術 減算 
し , 指定 し た レジ スタ に 結果 を 設定 する 。 
② 演 算 結果 に より , フラ グレ ジス タ を 設定 する 。 
y 解説 
GR1 の 内 容 が 6, GR3 の 内 容 が 一 20, 配列 要素 A(6) の 記 境 内 容 
が 100 と する と , GR3 の 内 容 一 20 か ら 実 効 ア ドレ ス で ある A(6) 番 
地 の 記 憶 内 容 100 を 減算 し , 結果 の 一 120 を GR3 に 設定 する 。 


GR3 の 内 容 1111i11111110i1100 ー20 
ー) A(6@) 番 地 の 記 憶 内 容 | 0000000001100100 100 
GR3 1111111110001000 ー120 


一 般 に コン ピュ ー タ に は 減算 回 路 が な く , 減数 の 2 の 補 数 を 求め , 
加算 回 路 を 使い 演算 する 。 


GR3 の 内 容 1 171 1 0 je0I0 ー20 
土 ) 100 の 2 の 補 数 1111i1111:1001:1100 ー100 
GR3 1111111110001000 ー120 


フラ グレ ジス タ は , ADD 命令 と 同様 , 演算 結果 の レジ スタ の 内 容 
に より 変化 する 。 
算術 演算 (ADD, SUB) 時 に , 第 0 ビッ ト か ら 1 が けた 上 が りす 
る が , オー バフ ロー (あふ れ ) で は な い 。 オ ー バ フロ ー と は ,。 レジ 
スタ の ビッ ト 0 か ら の けた 上 が り を C。, ビッ ト 1 か ら の けた 上 が り 
を 選 と する と , C。 と 選 が 一 致し な い 状態 を いう 。 
算術 演算 命令 @⑳CA 


AND 闘 令 np 


y 書き 方 例 (R-M 形 式 ) 


> 癌 令 の 機能 


① 指 定 し た レジ スタ の 内 容 と 実効 アド レス の 記憶 内 容 の 論理 積 を と 
り , 指定 し た レジ スタ に 結果 を 設定 する 。 
@ 演 算 結 果 に より , フラ グレ ジス タ を 設定 する 。 


AND (論理 積 ) は 図 に ある よう に , 両方 
の ピッ ト が 「1」 の と きだ け 「1」 と な り , 
それ 以外 は 「 0 」 と な る 。 例 に あげ た AND 
命令 を 実行 する と 次 の よう に な る 。 


GR0 の 内 容 111100001111j0000 

。 記 裕 |!!111Iiioooooooo 
AND) 記憶 内 容 1111111100000000 
GR0O 11110000:00000000 


AND 命令 は , ある ビッ ト が 「1」 か 「0」 か を 調べ る と き に よく 
使用 する 。 調 べた い ピ ッ ト だ け を 「1」 その ほか の ビッ ト を 「0」 
と し た デー タ と AND を と っ た 後 , 分 岐 命令 で 判定 する 。 

フラ グレ ジス タ は , ADD 命令 と 同様 , 演算 結果 の レジ スタ の 内 容 
に より 変化 する 。 

論理 演算 は , 符号 ビッ ト も 含め 各 ビ ピッ ト ご と に 処理 し , ほか の ビ 
ッ ト に 影響 を 及ぼ さ な い 。 


CA 論理 演算 命令 


UH 病 令 os 
P 書き 方 例 (R-M 形 式 ) 


y 病 令 の 機能 


① 指 定 し た レジ スタ の 内 容 と 実 七 アド レス の 記 億 内 容 の 論理 和 を と 
り , 指定 し た レジ スタ に 結果 を 設定 する 。 

@ 演 算 結果 に より , フラ グレ ジス タ を 設定 する 。 

解説 


La の OR (論理 和 ) は 図 に ある よう に , 両方 


の ピッ ト が 「0」 の と きだ け 「0」 と な 
り 。- そ れ 以 外 は 「 1 と な る 。 


GR3 が 9 の と き , 例 に あげ た OR 命令 を 実行 する と , GR1 の 内 容 
と 配列 要素 CHR( 9 ) の 記憶 内 容 の 論理 和 を と り , 結果 は GR1 に 設 
定 さ れる 。 フ ラグ レジ スタ は , ADD 命令 と 同様 , 演算 結果 の レジ ス 
タ の 内 容 に より 変化 する 。 


GR1 の 内 容 | 1111:00001111:0000 
OR) CHR(GR3) の 記憶 内 容 | 1111:1111.00000000 
eR1 | 1111i11111111i0000 


論理 和 (OR) は , 算術 加算 (ADD) と 違い , けた 上 が り は し な 
ぃ い 。 すべて の 論理 演算 は 各 ビ ピット ご と に 処理 し , ほか の ビッ ト に 影 
狂 を 及ぼ さ な い 。 


論理 演算 命令 ⑯CA 


EO0D HH 命令 Exclusive OR 


y 書き 方 例 (R-M 形 式 ) 


す 


EOR GR2, TEST 
EOR GR2, TEST 


Py 硬 令 の 機能 


① 指 定 し た レジ スタ の 内 容 と 実効 アド レス の 記憶 内 容 の 排他 的 論理 
和 を と り , 指定 し た レジ スタ に 結果 を 設定 する 。 

@ 演 算 結 果 に より , フラ グレ ジス タ を 設定 する 。 

解説 


EOR (排他 的 論理 和 ) は 図 に ある よう 
に , 両方 の ビッ トバ パタ ー ン が 同じ し と き は 
「 0 」 と な り , ピッ トバ パタ ー ン が 異な る と 
き は 「1」 と な る 。 


GR2 10101111:0101.0000 2 回目 の 結果 


レジ スタ の 内 容 と 実効 アド レス の 記憶 内 容 の ピッ トペ パタ ー ン が ま 
っ だ たく 同じ し とき, EOR 命令 を 実行 する と レジ スタ の 内 容 は オー ル ゼ 
ロ に な る 。 こ の 人 性 質 を 利用 し て , ピッ トペ パター ン が 同じ か どう か を 
調べ る と き に EOR 命令 が 使用 きれ る 。 さらに , 図 に ある よう に 同じ 
EOR 命令 を 2 回 実行 する と , レジ スタ の 内 容 が も と に 戻る 。 


CA⑳ 論理 演算 命令 


PA 命令 ComPgare Arithmetic 
Py 書き 方 例 (R-M 形 式 ) 


y 病 令 の 機能 


指定 し た レジ スタ の 内 容 と 実効 アド レス の 記 億 内 容 の 算術 比較 を 
行い , 比較 結果 に より フラ グレ ジス タ に 次 の 値 を 設定 する 。 


(GR*) > (実効 アド レス ) 
(GR*) = (実効 アド レス ) 
(GR*) < (実効 アド レス ) 


(* は 0 一 4 


y 解説 
GR0 の 内 容 ラベ ル M1 番 地 の 記憶 内 容 


(32767) (ー1 ) 
CPA 命令 は 数 値 を 比較 する と き , 第 0 ピッ ト が 「1」 な ら ば 負数 
と し て 扱う 。 図 で 例 の CPA 命令 を 実行 する と , FR=「00」 に な る 。 
比較 命令 を 実行 し て も , レジ スタ の 内 容 お よび 実効 アド レス の 記 
蔽 内 容 は と も に 壊れ な い 。 比 較 結果 を フラ グレ ジス タ に 設定 する 。 
CPA GR0, N50 


JPZ O50 
: ij 50 未 満 の 処理 
O50 
: , 50 以 上 の 処理 
N50 DC 50 


これ で , GR0 が 50 以 上 か 50 未 満 か を 区 別 で きる 。 


比較 演算 命令 ⑩CA 


CPL 義 Conear。i。gca」 
Py 書き 方 例 (R-M 形 式 ) 
| |ew emem 


y 命令 の 機能 
指定 し た レジ スタ の 内 容 と 実効 アド レス の 記憶 内 容 の 論理 比較 を 
い 。 比較 結果 に より フラ グレ ジス タ に 次 の 値 を 設定 する 。 


> ( 実 凛 アド レス ) 
(実効 アド レス ) 
(実効 アド レス ) (* は 0 一 4) 
y 解説 
GR0 の 内 容 ラベ ル M1 番 地 の 記憶 内 容 
< 


(32767) (65535) 
CPL 命令 は 数 値 比較 を する と き , 単 な る 2 進数 と し て 扱う の で , オ 
ー ル 1 の 値 は - 1 で な く 65535。 同 じ 処 理 を し て も , CPA 命令 で は 
FR=「00」 と な っ た が , CPL 命令 で は FR=「10」 と な る 。 


ん LEA GRO, A 
CPL GRO, B 
B DC B 


CASL で は 格納 開始 アド レス が 定義 され て な い の で , A 番地 の 絶 
対 ア ドレ ス が 32767 番 地 か も し れ な い 。 その 場合 , A 番地 と B 番 地 の 
アド レス 比較 を する と , CPA 命 令 で は , B 番 地 の ほ う が 大 きい の に 
B 番地 が 負 の 値 と し て 扱わ れ , 正しい 比較 が で き な い 。 


CA 人 め ゆ 比較 演 算命 令 


らし L 病 令 Shift Left Logical 
y 書き 方 例 (R-M 形 式 ) 


y 病 令 の 機能 

① 指 定 し た レジ スタ の 内 容 を , 符号 を 含め 実効 アド レス で 指定 し た 
ビ ピット 数 だ け 左 に シフ ト す る 。 シ フト の 結果 , 空い た ビッ ト 位 置 
に は 0 が 入る 。 

② シ フト の 結果 に より , フラ グレ ジス タ を 設定 する 。 

Py 解説 

書き 方 例 で は , GR3 の 内 容 を 左 へ 2 ビッ ト 論 理 シ フト する 。 


シフ ト ア ウ ト す る = / CO す ーー 新しく 0 が 入る 
edo な 1) 

フラ グレ ジス タ は , けら 2 の の こよ り 次 の よう に 設 
定 さ れる 。 


実行 後 の GR3 


実行 後 の レ ジス タ の 内 容 フラ グレ ジス タ の 内 容 
rRーT0 0」 (あな る 除く リ 
算術 シフ ト 命 令 は 符号 ビッ ト Ne ビッ ト ) を 除き シフ ト す る の 
で , レジ スタ の 内 容 が 負 で も 2 倍 , 信博 の 処理 が な され る 。 と ころ 
が , 論理 シフ ト 命 令 で は そう 拓本 論理 シフ ト 命 令 は , 論 
演算 命令 と と も に ビッ ト 処 理 な ど に 使用 され る 。 


シフ ト 演 算命 令 ⑯CA 


選 HL 命 令 Shift Right Logical 
Py 書き 方 例 (R-M 形 式 ) 


y 硬 令 の 機能 

① 指 定 し た レジ スタ の 内 容 を , 符号 を 含め 実効 アド レス で 指定 し た 
ビ ピット 数 だ け 右 に シフ ト す る 。 シ フ AS 千 果 。 空い た ピッ ト 位 置 
に は 0 が 入る 。 

② シ フト の 結果 に より , フラ グレ ジス タ を 設定 する 。 

Py 解説 
( イ ) の SRL 命令 の 実行 を 図示 する と 次 の よう に な る 。 


実行 前 の GRO 玉 玉 玉 玉 米 玉 六 素 玉 玉 率 玉 素 杯 来 


命令 実行 後 の レ ジス タ の 内 容 に より , フラ グレ ジス タ は 変化 する 。 

また , 16 ピ ッ ト シ フト する と , レジ スタ が オー ル 0 に な る の で , 
SRL GR*, 16 (* は 0-3) 

と いう 命令 は , レジ スタ を オー ルク リア する 場合 に 使え る 。 

( ロ ) の 命令 を 実行 する 前 。 GR3 の 内 容 が 1 と する と , イン デック 
ス 修飾 指示 が ある の で , 実効 アド レス は , 

2 十 (GR3)= ニ 2+1=3 

と な る 。 結局 。( ロ ) の SRL 命令 に よっ て , GR1 の 内 容 は 右 へ 3 ビッ 
ト 論 理 シ フト され る 。 


CA ゆめ シフ ト 演 算命 令 


らら LA 命 仙 Shift Left Arithmefic 
ぁ 書き 方 例 (R-M 形 式 ) 


Py 病 令 の 機能 

① 指 定 し た レジ スタ の 内 容 を , 符号 を 除き 実効 アド レス で 指定 し 
2 MCSE 
に は 0 が 入る 。 

② シ フト の 結果 に より , フラ グレ ジス タ を 設定 する 。 

Py 解説 

例 に あげ た SLA 命令 は , GR0 の 内 容 を 左 へ 1 ビット 算術 シフ ト 

する 。 これ を 図示 する と 次 の よう に な る 。 


実行 前 の GRO ID0000000000001.0110 22 
第 1 ビ ピット か ら シ フ ト ァ ウト する = MO / 新しく 0 が 入る 
実行 後 の GRO 0000:000000101100 44 


符号 ビッ ト は その まま て 変化 し な い 


実行 前 の GRO |1111111111101010| 22 


第 1 ビッ ト か ら シ フト アウ ト す る っ トリ // rm… / 新しく 0 が 入る 
実行 後 の GRO |I1111'111111101.0100 ー44 


図 に 示し た よう に , 左 へ 1 ビッ ト 算 術 シ レフ ト す る と , レジ スタ の 
内 容 が 正 の 値 で も 負 の 値 で も 2 倍 さ れる 。 左 へ 2 ビッ ト 算 術 シ フト 
する と , 4 倍 , さら に 1 ピッ トシ フト する ご と に , 8 倍 , 16 倍 …… 
と な る 。 こ の SLA 命令 は , 乗算 処理 を 行う とき に 用 いら れる 。 

フラ グレ ジス タ は , SLL 命令 と 同様 。 実 行 後 の レ ジス タ の 内 容 に 
より 変化 する 。 


シフ ト 演 算命 令 ⑯CA 


らら HA 命 令 Shift Right Arithmetic 


y 書き 方 例 (R-M 形 式 ) 


Py 厨 令 の 機能 

① 指 定 し た レジ スタ の 内 容 を , 符号 を 除き 実効 アド レス で 指定 し た 
ビ ピット 数 だ け 右 に シフ ト す る 。 シ フト の 結果 , 空い た ピッ ト 位 置 
に は 符号 と 同じ も の が 入る 。 

シフ ト の 結果 に より , フラ グレ ジス タ を 設定 する 。 

Py 解説 

例 に あげ た SRA 命令 は , GR3 の 内 容 を 右 へ 2 ビッ ト 算 術 シ フト 
する 。 こ れ を 図示 する と 次 の よう に な る 。 


実行 前 の GR3 0000001.0110111000 696 


符号 ビッ ト が コピ ー さ れる N ……ー NL シッ ト ア ウト する 
実行 後 の GRR3 |0000:0000:10101110 174 


符号 ビッ ト は その まま て 変化 し な い 


実行 前 の GR3 11111101:0100:1000 ー696 


符号 ビッ ト が コピ ー さ れる NN に NLー シ フト アウ ト す る 
実行 後 の GR3 111111111:0101:0010 ー174 


図 に 示し た よう に , 右 へ 2 ビット 算術 シフ ト す る と , レジ スタ の 
内 容 が 正 の 値 で も 負 の 値 で も 子 倍 され る 。 も ちろ ん 右 へ 1 ビ ピット 算 
術 シフ ト す る と , 今 倍 し た こと に な る 。 

レジ スタ の 内 容 が 負 の 場合 , 右 へ 16 ビ ッ ト 算 術 シ フト し て も ゼロ 
に な ら ず , - 1 に な る こと に 注意 。 

フラ グレ ジス タ は , SLL 命令 と 同様, 実行 後 の レ ジス タ の 内 容 に 
より 変化 する 。 


CA 人 9 シフ ト 演 算命 令 


J り ロフ 命 令 Jump on Plus or Zero 
y 書 寺 方 例 (M 形 式 ) 


JPZ 


y 凍 令 の 機能 

フラ グレ ジス タ の 値 が FR=「00」 あ る い は FR ニ = ニ 「01」 の と き , 
実効 アド レス に 分 岐 す る 。 それ 以外 の と き (FR=「10」) は , 次 の 命 
令 に 進む 。 
Py 解説 

JMI 命令 と 逆 の 処理 を 行う 。 例 に あげ た 本 PZ 命令 の 流れ を 図示 す 
る と 次 の よう に な る 。 


JPZ PLUSZ 
PLUSZ j テ 0 正 , ゼロ の 処理 プ ブロック 
ゼロ の と き に 負 と 同じ 処理 を 行う た め に は , 次 の よう に する 。 
JZE  MZ 
JPZ  P 
MZ : ij ミ 0 負 , ゼロ の 処理 プ ブロック 
の 和 理 ブロ ッ ク 


さら 】 葉 。 。 正 閣下 日 3 ご と に 3 つの 処理 に 分 ける に は , 次 の よう 
に する 。 


JZE 7 

JPZ P 
Z ji テ 0 ゼロ の 処理 プ ブロック 
P 3 :>0 正 の 処理 ブロ ッ ク 


分 岐 命令 CA 


JMI 命 令 Jump on AInus 


Py 書き 方 例 (M 形 式 ) 


人 馬 」 JMI WINUS 


命令 の 機能 

フラ グレ ジス タ の 値 が FR=「10」 の と き , 実効 アド レス に 分 岐 す 
る 。 そ れ 以 外 の と き (FR=「00」 あ る い は FR=「01」) は , 次 の 命 
令 に 進む 。 
Py 解説 

JPZ 命令 と 逆 の 処理 を 行う 。 例 に あげ た JMI 命令 の 流れ を 図示 す 
る と 次 の よう に な る 。 


JMI MINUS 
MINUS : j く 0 負 の 処理 プ ブロック 


ゼロ の と き 人 負 と 同じ 処理 を 行う た め に は , 次 の よう に する 。 


JMI  MZ 
JZE  MZ 
MZ 5 j ミ 0 負 , ゼロ の 処理 プ ブロック 


さら に , 正 , ゼロ , 負 ご と に 3 つの 処理 に 分 ける に は , 次 の よう 
に a9925 


ェ >0 正 の 処理 プ ブロック 


M : ji く 0 負 の 処理 ブロ ッ ク 


CA@ 分 岐 命令 


JNZ プ 命令 Jump on Non Zero 


y 書き 方 例 (M 形 式 ) 


| | |mzmeo | 
y 癌 令 の 機能 

フラ グレ ジス タ の 値 が FR=「00」 あ る い は FR=「10」 の と き 。, 
実効 アド レス に 分 岐 す る 。 それ 以 外 の と き (FR=「01」) は , 次 の 命 
令 に 進む 。 
y 解説 

JZE 命令 と 逆 の 処理 を 行う 。 例 に あげ た JINZ 命令 の 流れ を 図示 
する と 次 の よう に な る 。 
JNZ NZERO 


9 三 0 ゼロ の 処理 ブロ ッ ク 


| NERo 5 : キ 0 非 ゼ ロ の 処理 プ ブロック 


分 岐 命令 ⑯CA 


JZE 命 令 Jump on ZEro 


y 書き 方 例 (M 形 式 ) 


Py 凍 令 の 機能 

フラ グレ ジス タ の 値 が FR=「01」 の と き , 実効 アド レス に 分 岐 す 
る 。 それ 以外 の と き (FR=「00」 あ る い は FR=「10」) は , 次 の 命 
令 に 進む 。 
y 解説 

JNZ 命令 と 送 の 処理 を 行う 。 例 に あげ た JZE 命令 の 流れ を 図示 
する と 次 の よう に な る 。 


JZE ZERO 
示せ ロ の 処理 ブロ ッ ク 
ZERO 8 ・=0 ゼロ の 処理 ブロ ッ ク 


CA 人 Q 分 岐 命令 


JMP 命 令 uncondifional JuAP 
y 書き 方 例 (M 形 式 ) 


JMP ALL 
JIMP INDEX, GR1 


y 病 令 の 機能 
無 条件 に 実 郊 アド レス に 分 岐 する 。 
シ 解説 


例 の ( イ ) に あげ た JIMP 命令 を 実行 する と , 実効 アド レス で ある 
ラ ベル ALL 番地 に 無 条 件 に ジャ ンプ する 。 ae ド ウ ェ ア 的 に 命 円 り 令 


を 説明 する と , 実効 アド レス を プロ グラ ムカ ウン 
Counter : PC) に 設定 する 。 


タ (Program 


例 の ( ロ ) に あげ た イン デック ス 修 飾 の ある ]MP 命令 で は , 指標 


レジ スタ の 内 容 に よっ て 分 岐 先 が 変化 する 。 


JMP INDEX, GR1 
: (GR1)=0 


: (GR1)=1 


: (GR1)= ニ 2 


プ ブロ ッ ク 処 理 が 終了 し た 後 , 無 条件 ジャ ンプ を 最後 
が あ る 。 


に 入れ る 必要 


JPZ PLUSZ 
Aom ブ ロッ ク 
JMP NEXT 次 の 処理 ブロ ッ ク へ 分 岐 
PLUSZ : =0 正 , ゼロ の 処理 プ ブロック 
NEXT 3 次 の 処理 ブロッ ク 


岐 命令 CA 


PUSH 命 令 PUSH effective qaddress 


y 書 寺 方 例 (M 形 式 ) 


PUSH 12345 :( イ ) 
PUSH 0, GR1 ) ( ロ ) 


Py 令 の 機能 
① ス タッ ク ポ イン タ か ら 1 を アド レス 減算 する 。 
② 実 効 ア ドレ ス を スタ ッ ク ポ イン タ の 内 容 の 示す 記憶 場所 に 格納 す 

る 。 
y 解説 

GR4 が スタ ッ ク ポ イン タ (stack pointer) と し て 用 いら れる 。 ス 
タッ ク ポ イン タ は , スタ ッ ク の 最上 段 の アド レス を 保持 し て いる レ 
ジス タ で ある 。 い ま , GR4 の 内 容 が 800 の と き , 例 に あげ た ( イ ) の 
PUSH 命令 を 実行 する と , 799 番 地 に 12345 が 格納 され る 。 

つづ いて , 例 に あげ た ( ロ ) の PUSH 命令 を 実行 する と , 実効 アド 
レス で ある (0 十 (GR1)} 番 地 が 798 番 地 に 格納 され る 。 この ( ロ ) の 命 
令 は , GR1 一 GR4 の 内 容 を スタ ッ ク 領 域 に 退避 する と き に 使う 命令 
で ある 。 逆 に スタ ッ ク 領 域 か ら 値 を 取り 出す に は , POP 命令 を 使 
の 

普通 の 場合 , 命令 に よっ て 主 記憶 装置 に デー タ を 記 層 させ る に は , 
何 番地 に 記憶 せよ と いう よう に , 常に 実効 アド レス を 示さ な けれ ば 
な ら な い 。 と ころ が , スタッ ク に 記憶 させ る に は , 番地 を 指定 し な 
く て も よい 。 こ こ が 大 き な 信 いで ある 。 


CA ゆ ス タッ ク 操 作 命令 


POP 命 流 pop 。。 


シ 書 寺 方 例 (その 他 の 形式 ) 


Py 病 令 の 機能 


① ス タッ ク ポ イン タ の 内 容 が 示す 記憶 場所 か ら 記 境内 容 を 取り 出し , 
指定 し た レジ スタ に 設定 する 。 
スタ ッ ク ポ イン タ に 1 を アド レス 加算 する 。 
y 解説 
PUSH 命令 の 逆 の 処理 を 行う 。 も ちろ ん , GR4 が スタ ッ ク ポ イン 
タ で , スタ ッ ク の 最上 段 の アド レス を 保持 し て いる 。 い ま , GR4 の 
内 容 が 798 の と き , 例 に あげ た POP 命令 を 実行 する と , 798 番 地 の 記 
憶 内 容 が GR1 に 設定 され る 。 主 プ ログ ラム か ら 渡 され た レジ スタ の 
内 容 を 保持 する た め に , 副 プ ログ ラム で は 次 の よう に する 。 
SUBPRO START 


PUSH 0, GR1 
PUSH 0 , GR2 
PUSH 0 , GR3 
POP GR3 
POP GR2 
POP GR1 
RET 

END 


この と まき, PUSH する レジ スタ と POP する レジ スタ の 順 が 逆 で 
ある こと に 注意 し よう 。 


スタ ッ ク 操 作 命 令 WCA 


CALL 命 令 CALL subroutine 
y 書き 方 例 (M 形 式 ) 
| lew lemmo | 


y 命令 の 機能 
① プ ログ ラム カウ ンタ の 現在 値 に 2 を アド レス 加算 し た 値 を スタ ッ 
ク に PUSH する 。 
② 実 効 ア ドレ ス を プロ グラ ムカ ウン タ に 設定 する 。 
ぁ 解説 
例 に あげ た CALL 命 令 を 簡単 に 説明 すれ ば , 副 プ ログ ラム SUB 
PRO に 分 岐 す る こと で ある 。 た だ 単に 分 岐 す る だ け な ら ば , 無 条 件 
ジャ ンプ 命令 と 同じ し に な る 。 JIMP 命 令 と 異な る 点 は , 戻り 番地 
(CALL 命令 の 次 の 命令 が 記 倍 され て いる 番地 ) を スタ ッ ク に 
PUSH し て か ら 分 岐 す る こと で ある 。 


MAIN START 2 START 
1 


1 
ッ 凍り 
/ 1 


CALL SUBPRO_ / | 


| の あこ Y 


あの 2 RET 
ノ ジン 
CALL SUBPRO _ レン“ END 
9 
END 
主 プ ログ ラム 副 ブ ログ ラム 


図示 し た よう に , CALL 命令 は , RET 命令 と ペア で 使い , 副 プ 
ログ ラム に 分 岐 し , 主 プ アロ グラ ム の 呼ば れ た 次 の 命令 に 戻る 。 


CA 人 コール, リタ ー ン 命令 


RE T 病 負 RETurn from subroufine 
Py 書き 方 例 (その 他 の 形式 ) 


Py 命令 の 機能 
スタ ッ ク ポ イン タタ から POP し た 値 を プロ グラ ムカ ウン タ に 設定 
す つ の 
y 解説 
RET 命令 は , CALL 命令 で 呼ば れ た 戻り 番地 (CALL 命令 の 次 の 
命令 を 記憶 し て いる 番地 ) に 戻る 命令 。 な お , 戻り 番地 は スタ ッ ク 
に 格納 され て いる 。 
プロ グラ ムカ ウン タ (PC) は , 実行 中 の 命令 語 の 先頭 アド レス を 
保持 し , 命令 の 実行 が 終わ る と , 次 に 実行 する 命令 語 の 先頭 アド レ 
ス が 設定 され る 。 一 般 に , 命令 の 実行 が 終わ る と PC に 2 が アド レス 
加算 きれ, 分岐. コール, リターン 命令 の 場合 は , 新た に 分 岐 先 の 
アド レス が 設定 され る 。 
PC を 汎用 レジ スタ の よう に 書く こと が で きれ ば , 
CALL SUBPRO 
と いう 命令 は , 次 の 2 命令 と 同じ し 意味 に な る 。 
PUSH の 8 二 P( の 
LEA PC, SUBPRO 
(LEA 命令 は 「JMP SUBPRO」 で も よい ) 
また , 次 の 2 命令 は 同じ 意味 で ある 。 
RET 
POP PC POOL 玉 氷 
**※ の よう な 命令 は な い が , CALL, RET 命令 を 理解 し や すい 。 


コー ル , リタ ー ン 命令 人 WCA 


IN 命令 Ng 
シ 書 寺 方 例 (その 他 の 形式 ) 


y 癌 令 の 機能 


① 入 力 領域 に 1 レコ ー ド の 文字 デー タ を 入力 する 。 
② 入 力 領域 は 。 第 1 オペランド に ラベ ル 名 で 指定 し , 入力 レコ ー ド 
の 文字 数 を 第 2 オペ ラン ド に ラベ ル 名 で 指定 する 。 
③ 入 力 領域 は , 80 語 長 (80 文 字 分 ) の 作業 域 の ラベ ル 名 と し , この 
領域 に 先頭 番地 か ら 1 文字 を 1 語 に 対応 させ て , 順次 入力 する 。 
各 語 の 第 0 7 ピット に は , 0 を 格納 する 。 
④ 入 力 レ コー ド の 文字 数 を , 第 2 オペ ラン ド で 指定 し た 領域 ( 1 語 
に 2 進 デ ー タ の 形 で 格納 する 。 レ コー ド の 区 切符 号 (鍵盤 入力 の 
と き の 復 帰 符号 な ど ) は , 格納 し な い 。 
5 入力 デー タ が 80 語 に 満た な い 場 合 , 入力 領域 の 残り の 部 分 は 実行 
前 の デー タ を 保持 する 。 入力 デー タ が 80 文 字 を 超え る 場合 , それ 
以降 の 文字 は 無 祝 する 。 
⑥ 次 の 場合 , 第 2 オペ ラン ド で 指定 し た 領域 (入力 文字 長 ) に , 0 
また は 一 1 を 格納 する 。 
0 一 一 空 の レコ ー ド の 入力 (タイ プラ イタ で 復帰 符号 だ けが 入 
力 さ れ た と き な ど ) 
ー ュ 1 ュー 一 EOF (End Of File) の 検出 (カー ド 読 取り 装置 な ど ) 
⑦ GR の 内 容 は 保存 され る が , FR の 内 容 は 不定 と な る 。 
y 解説 
図 に 示す よう に , 3 枚 の カー ド が 例 に あげ た IN 命令 に よっ て 入 
力 さ れ た 場合 を 考え る 。 1 枚 目 の カー ド が 入力 され た 後 , 6 文字 入 


CA⑳ マ クロ 命令 


力 さ れ た の で , ラベ ル NCHR 番地 に は 2 進数 の 6 が 格納 され る 。 配 
列 IBUF 番地 に は , 入力 され た 文字 の 文字 コー ド が 1 文字 ご と に 格 
納 さ れる 。 


2 枚 目 の カー ド が 例 に あげ た IN 命令 に よっ て 入力 され る と , カ 
ー ド は 空白 行 な の で ラベ ル NCHR 番地 が 0 に な る 。 

配列 IBUF の 内 容 は , 実行 前 の アー タ が 保持 され る の で 変わ ら な 
5。 


3 枚 目 の カー ド に つい て IN 命令 を 実行 する と , EOF な の で ラベ 
ル NCHR 番地 が 一 1 に な る 。 


ラベ ル NCHR 番 地 


も ちろ ん , 配列 IBUF の 内 容 は 変わ ら な い 。 な お , EOF は , 処理 
系 に よっ て , 「//EOD. 」 と か 「//EOF. 」 な どの 制御 カー ド を 入れ る 


場合 も ある 。 
記憶 内 容 


3 枚 目 
NCHR| 000000000000:0110 


2 枚 目 
番地 2 


IBUF 十 4 


IBUF 十 5 


IBUF 十 79 


マク ロ 和 命令 人 WCA 


DUT 命 令 OUTput 
y 書き 方 例 (その 他 の 形式 ) 
| |em |mwwoemw | 


Py 病 令 の 機能 

① 第 1 オペ ラン ド の ラベ ル 名 で 指定 し た 出力 領域 に 格納 され て いる 
文字 アー タ を ,。 1 レコ ー ド と し て 出力 する 。 

② 第 2 オペ ラン ド の ラベ ル 名 で 出力 文字 長 を 指定 する 。 

③ 出 力 領域 は , 出力 し よう と する デー タ が 1 文字 1 語 で 格納 され て 
いる 領域 の ラベ ル 名 と する (DC 命令 の 文字 定数 に 同じ し 。 た だ し , 
第 0 一 7 ビッ ト の 値 は 0 で な く て も よい )。 

④ 出 力 文 字 長 は 。 1 レコ ー ド と し て 出力 し よう と する 文字 数 を 2 進 
デー タ の 形 で 格納 し て いる 1 語 の ラベ ル 名 と する 。 

⑤ 出 力 の さい , レコ ー ド の 区 切符 号 (タイ プラ イタ 出力 の と き の 復 
帰 符 号 な ど ) が 必要 な 場合 に は , オペ レー ティ ング シス テム が 自 
動 的 に 挿入 出力 する 。 ま た , 出力 する 各 語 の 第 0 一 7 ビッ ト の 削 
除 も , オペ レー ティ ング シス テム が 行う 。 

⑥ GR の 内 容 は 保存 され る が , FR の 内 容 は 不定 と な る 。 

ぁ 解説 
4 文字 の `YZ98′ を 出力 する に は , オペ ラン ド で 指定 し た 各 ラ 

ベル 番地 の 記憶 内 容 を 下図 の よう に し , 例 の OUT 命令 を 実行 する 。 


表 玉 来 来 玉 来 ※※01011010 


水玉 玉 玉 玉 ※ ポ 0011:1001 
* ネ ネネ ネ *※ 玉 00111000 (は 0 か 1) 
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EXIT 闘 焦 ex 


書き 方 例 (その 他 の 形式 ) 


y 凍 令 の 機能 
① プ ログ ラム の 実行 を 終了 する (制御 を オペ レー ティ ング シス テム 
に 戻す )。 
② GR の 内 容 は 保存 きれ る が , FR の 内 容 は 不定 と な る 。 

y 解説 

オペ ラン ド 欄 は 空白 に する 。 

EXIT 命令 は 命令 語 に 変換 され る 。FORTRAN 言語 の STOP 命 
令 と 同じ し だ が , COMET が 停止 する の で は な く , オペ レー ティ ング 
シス テム の 先頭 に 戻る (ジャ ンプ する )。 


マク ロ 命 令 人 CA 


央 チェ ッ ク 問 題 豆 


CASL 言語 で 番 か れ た 次 の プロ グラ ム に つい て , 各 設 問 に 答え よ 。 


10 EX1 


20 GR1, A 
GR1, B 
GR1, C 
L1 

GR1, M1 

GR1, 1, GR1 
GR1, ANS 


設問 1 プロ グラ ム EX1 の 実行 が 終了 する と , ラベ ル ANS 番地 の 記 億 内 容 は 
いく ら に な る か 。 

設問 2 行 番号 60, 70 の 2 命令 に よっ て , どの よう な 処理 が され る か 。 

設問 3 ラベ ル 4. B. C 番 地 の 記憶 内 容 を 一 100, 一 200, 一 500 と 変更 し て か ら プ 
ログ ラム EX1 を 実行 する と, 実行 終了 後 ラ ベル ANS 番地 の 記 億 内 容 は 
いく ら に な る か 。 4 けた 16 進 数 で 答え よ 。 


届 チェ ッ ク 問 題 証 解 答 

設問 1 200 

設問 2 2 の 補 数 を 求め る 処理 

設問 3 XX "00C8" (た だ し , X " "は 16 進 数 を 示す ) 

【 重 要 ポ イン ト 】 2 の 補 数 を 求め る に は , NOT し て (+ 1 ) する 。 NOT ( 論 
理 否 定 ) は , オー ル 1 の デー タ と EOR する 。 


CA チェ ッ ク 問 題 


圏 チ ェ ッ ク 問 題 四 


CASL 言語 で 書か し れ た 次 の プロ グラ ム に つい て 。 各 設問 に 答え よ 。 


CIN, NIN 


CIN, NIN 
GR0, CIN 
GR0, CO 
STOP 

GR0, CO 

GR0, OUTL 
OUTC, OUTN 
GR0, N1 
AGN 


設問 1 デー タ と し て 3 を 入力 し て この プロ グラ ム EX2 を 実行 する と , どの よ 
うな 出力 が 得 ち らし れる か 。 
設問 2 行 番号 120、140 の EOR 命令 の 役割 を 簡単 に 説明 せよ 。 
軸 チェ ッ ク 問 題 回 解答 
設問 1 設問 2 
行 番号 120 。 文字 コー ド を 数 値 に 変換 する 
行 番号 140 数値 を 女 字 コー ド に 変換 する 


【 重 要 ポ イン ト 】 IN, OUT 命令 に よっ て 入出 力 さ れる デー タ は 、 文字 コ 
ー ド で ある 。 文 字 コ ー ド を 数 値 に 秦 換 する 方 法 を マス ター し よう 。 


チェ ッ ク 問 題 ⑩CA 


軸 チ ェ ッ ク 問 題 回 


CASL 言語 で 壮 か れ た 次 の プロ グラ ム は , GR1 (上 位 16 ビ ピット) と GR2( 下 
位 16 ビ ッ ト ) を 連続 し た 32 ビ ピット の レジ スタ と 考え て , 1 ビッ ト 左 (SLDA) あ 
る い は 右 (SRDA) に 算術 シフ ト す る 削 プ ログ ラム で ある 。 空欄 に 適切 な 命令 を 
入れ よ 。 


0, GR1 
GR2, 1 
GR1, X0001 
SRDA1 


固 チェ ッ ク 問 題 回 解答 

行 番号 50 LEA GR1, 1, GR1 

行 番 号 60 SLL GR2, 1 

行 番号 150 LEA GR2, 32768, GR2 

行 番号 160 POP GR1 

【 重 要 ポ イン ト 】 ある ピッ ト を 立て る の に , LEA 命令 を 利用 する 。 
AND すれ ば レジ スク の 衣 の 内 容 が 消え て し まう 。 


CA チェ ッ ク 問 是 


周 チ ェ ッ ク 問 題 回 


CASL 言 語 で 普 か れ た 次 の プロ グラ ム は , W 個 の データ ( り 474(0)~ り 474 
(パー1)) の 総和 。 最大 値 。 疫 小 値 を GRO,GR2,GR3 に それ ぞ れ 求め る プロ グラ ム 
で ある 。 空 欄 に 適切 な 命令 を 入れ よ 。 


GR2, DATA 
GR3, DATA 
GR1, N 


GRO0, DATA, GR1 


GR2, DATA, GR1 


GR3, DATA, GR1 
L4 
GR3, DATA, GR1 


周 チェ ッ ク 問 題 四 解 答 

行 番号 20 LEA GR0O.0 

行 番号 70 JMI L2 (JNZ  L2 で も 可 ) 

行 番号 120 LD GR2, DATA, GR1 

行 番号 130 JMP  L4 

行 番号 170 LEA GR1,1,GR1 

【 重 要 ポ イン ト 】 大 小 比 較 を CPA、CPL 命令 で 行う と, レジ スタ の 
内 容 も 記憶 装置 の 記憶 内 容 も 壊れ な い 。 


チェ ッ ク 問 題 @CA 


軸 チ ェ ッ ク 問 題 回 
CASL 言語 で 介 か れ た 次 の プロ グラ ム は , 斑 ブ ログ ラム の CALL 命 信 の 次 の 
記憶 きれ て いる 値 を 加算 し , 加算 結果 を GRO に 求め る プロ グラ ム で あ 


2 語 に 記 


る 。 各 設問 に 答え よ 。 


1234 

2345 

GR0, ANS1 
WA 

ー3456 
ー4567 

GR0, ANS2 


設問 1 空欄 に 疾 切 な 命令 を 入れ よ 。 
設 間 2 プロ グラ ム EX5 の 実行 が 終了 し た と き , ANS1, ANS2 番地 の 記 培 内 
容 は いく 〈 ら か 。 
届 チ ェ ッ ク 問 題 回 解答 
設問 1 行 番号 170  LD GR0, 0, GR1 
行 番号 190 PUSH 2, GR1 
設問 2 ANS1 番 地 3579 ANS2 番 地 -8023 
【 重 要 ポ イン ト 】 訓 プ ログ ラム に ほ きた と き , スタ ッ ク の 頭 に 戻り 番地 が あ 
る 。 こ れ を 取り 出し て 引数 の 処理 が で きる 。RET す る 前 に 戻り 番地 を 整 
える 。 


CA⑳⑱ チ ェ ッ ク 同 題 


あー お 
アド レス 修飾 12 
アド レス 値 。 14 
アド レス 定数 9 
あふ れ 17 
1 語 の ビッ ト 構 成 5 
イン クリ メン ト 14 
オー バフ ロー 17 
オペ ラン ド 欄 。 2 


か ー こ 
加算 回 路 17 
空 の レコ ー ド 36 
区 切符 号 38 
減算 回 路 。 17 
原始 プロ グラ ム 8 

さ ー そ 
算術 加算 。 16 
算術 減算 。 17 
算術 シフ ト 25 
算術 比較 。 21 


実効 アド レス 12 
実行 開始 番地 7 
指標 レジ スタ 5 


10 進 定数 9 
16 進 数 9 
16 進 定数 9 


出力 文字 藤 38 
出力 領域 。38 
スタ ッ ク ポ イン タ 5 


た 一 と 


和文 索引 (50 斉 記 


注釈 欄 2 
ディ クリ ズン ト 14 


な ーー の 


2 進 ア デー タ 10 
2 の 袖 数 5, 17 
入力 領域 36 


は 一 ほ 


排他 的 論理 和 。 20 

油 用 レジ スタ 5 

フラ グレ ジス タ 6 

プロ グラ ムカ ウン タク 5 
ま ー も 

無人 条件 ジャ ンプ 31 

命令 コー ド 欄 。 2 

命令 語 6 

メモ リ 形 式 3 

目的 プロ グラ ム 8 

文字 コー ド 表 。 10 


文字 定数 9 
文字 データ 9 
戻り 番地 33 
ら ー ク ろ 
ラベ ル 7 
ラベ ル 欄 2 


レジ スタ の 指定 13 
レジ スタ ー メ モリ 形式 3 
論理 シフ ト 23 

論理 積 。18 

論理 比較 22 

論理 和 19 


CASL 索引 @⑯CA 


欧文 索引 


ADD 命令 16 JZE 命 信 30 
AND 命令 18 LD 命令 12 
CALL 命令 34 LEA 命令 14 
CASL 処理 系 8 M 形 式 3 

CPA 命 令 。 21 nooperation 命 令 15 
CPL 命令 22 NOP 命令 15 
DC 命令 9 OR 命令 19 
DS 命令 11 OUT 命 令 38 
END 命令 8 PC 5 

end of file 36 POP 命令 33 
EOF 36 PUSH 命令 32 
EOR 命令 20 RET 命令 35 
EXIT 命 令 39 R-M 形式 3 
FR 6 SLA 命令 25 
GR 5 SLL 命令 23 
IN 命令 36 SRA 命令 26 
JMI 命令 28 SRL 命令 24 
JMP 命令 31 ST 命令 13 
JNZ 命 令 29 START 命令 7 
JPZ 命令 27 SUB 命令 17 


CA@CASL 索引 


FORIRAN 


基本 文法 ハン ドブ ッ ク 


情報 処理 技術 イン スト ラク タク 


滝沢 英子 


yp この FORTRAN 基本 文法 ハン ド プ ッ 
ク は , FORTRAN の 初心 者 か ら 中 級 者 
まで を 対象 に に 。 プ ログ ラミ ング 上 の 規 
則 や 基本 コマ ンド の 使い 方 な ど を 解説 
し た も の で す 。 

ぁ 文法 事項 は , 日 本 工業 規格 JIS FORT 
RAN C6201 の 上 位 水準 に 準 択 し て い 
ます 。 た だ し , 第 2 種 情報 処理 技術 者 
試験 の 範囲 か ら 除 か れ た 次 の 仕様 に つ 
いて の 説明 は 省 い て あり ます 。 


倍 精度 実数 型 。 被 未 数 型 ア ー タ 
内 部 ファ イル , INQUIRE 文 

P 本 文中 で 示し た FORTRAN の 文 な ど 

の 一 般 形 式 に 含ま れる 記号 類 は , 次 の 
意味 を 表し ます 。 

① プ ラケット [ ] の な か は 指定 し な 
く て も よい 

② リ ー ダ … は その 前 の 指定 項目 を 繰り 
返し 指定 し て も よい 


FORIRAN 


基本 文法 ハン ドブ ッ ク 一 目次 


FOHTHAN ブ ログ ラム の 構成 …3 


配列 の 宣言 5 
配列 要素 の 参照 /5 


式 の 種類 7 
演算 子 の 種類 と 働き 7 


EQUIVALENCE 文 11 
宣言 文 プ 18 
IMPLIOIT 文 ノ 13 
PAHAMETEH 文 ノ 14 


DATA 文 ノ 15 
DO 形 並び プ 15 


算術 代入 文 /]6 
論理 代入 文 15 
文 番号 代入 文 ノ 16 
文字 代入 文 プ 16 


単純 GOD TO 文 ノ 17 
計算 形 GO TO 文 ノ 17 
割当 て 形 GO TO 文 ノ 17 
算術 |F 文 プ 1 


語 理 |F 文 プ 18 
ブロ ッ ク IF 文 , 
ELSE 文 , 

END IF 文 ノ 19 
ELSE IF 文 ノ 80 
DO 文 プ g1 
CONTINUE 文 23 
STOP 文 3 
PAUSE 文 4 
END 文 24 


WHITE 文 ノ 85 
OPEN 文 , 

CLOSE 文 7 
BACKSPAOE 文 , 
ENDFILE 文 , 
HEWIND 文 9 
書式 仕様 29 


組込み 関数 の 引用 36 
組込み 関数 一 覧 37 


副 プ ログ ラム ……………… 
FUNOCTION 文 41 
SUBHOUTINE 文 43 
BLOCK DATA 文 44 


FORHTHAIN プロ グラ ム の 構成 


〔 プ ログ ラム 例 〕 
50 人 の 学生 に つい て , 3 科目 の テス ト の 平均 点 を 求め る 。 


キ SAMPLE PROGRAM 注釈 行 
CHARACTER*20 NAME 型 宣言 文 
WRITE(6/1) WRITE 文 

1 FORMAT('1!/10X/!** LIST * ォ キネ!/ 
* 10!/4X/!NAMAE'!/17X/! TEST!/ low 
キ 7X/'HEIKIN") 
b0 10 1r=1/50 DO 文 
READ(5,2) NAME/K1/K2/K3 ぅ READ 文 
2 FORMAT(A20/313) FORMAT 文 
H=(K1+KZ2+K3 ぅ ) /3.0 算術 代入 文 
WRITE(6/3) NAME/K1/K2/K3/H WRITE 文 
3 FORMAT(! !/A20,315/F8.1) FORMAT 文 
10 CONTINUE CONTINUE 文 
STO0P STOP 文 
END END 文 
① 注 釈 行 と 継続 行 


第 1 けた が O また は * の 行 は 注釈 行 ( プ ログ ラム の 説明 ) と な る 。 

第 6 けた に 0 で な い 文 字 の ある 行 は 継続 行 と いい , 前 の 行か ら つ 
な が っ て いる と みな され る 。 
② 文 と 文 番号 

第 7 けた か ら 72 け た の 間 に 文 を 書く 。 文 の 識別 の た め に 第 1 けた 
か ら 5 けた の 間 に 番 号 を 付け る こと が で きる 。 こ れ を 文 番号 と いう 。 
③⑧ 実 行文 と 非 実行 文 

実行 文 は 動作 を 指定 する た め の 文 で あり , 基本 的 に は 先頭 か ら 順 
に 実行 され る 。 プロ グラ ム 中 の WRITE 文 , DO 文 , READ 文 , 算 
術 代 入 文 , CONTINUE 文 , STOP 文 , END 文 は 実行 文 で ある 。 

宣言 の た め の 文 や 入出 力 の 編集 情報 の た め の 文 は 非 実行 文 で ある 。 
型 官 言 文 や FORMAT 文 が これ に 当たる 。 


プロ グラ ム の 構成 人 ⑳F 


定数 と 変数 


定数 


整数 型 1、5, 一 10 
実数 型 0.5, 一 10.3, 1.5E6, 一 12Eー3 


文字 型 ABC', 1 DON"T KNOW' 
論理 型 .TRUE.,.FALSE. 


プロ グラ ム 中 に 直接 , 指定 する も の を 定数 と いう 。 数値 デー タ は , 
小数 点 の 付か な いも の を 整数 型 , 小数 点 の 付い た も の を 実数 型 の 定 
数 と し て 扱う 。 実 数 型 の 定数 は 指数 部 付き の も の も 許さ れ , 世 の 後 
ろ に 指定 する 。1.5E6 は 1.5x10%, 一 12 刀 一 5 は ー12xX10-3。 

文字 デー タ は 前 後に アポ スト ロフ ィ を 付け て 定数 と する 。 文字 デ 
ー タ 中 に アポ スト ロフ ィ が 合 ま れる 場合 、 アポ スト ロフ ィ 1 つ に 対 
し アポ スト ロフ ィ を 2 つ 並 べ て 指定 する 。'1 DON"T KNOW は , 
I DONT KNOW と いう 文字 デー タ を 表す 。 論理 型 の 定数 に は , 真 
を 表す . TRUE. と 偽 を 表す . FALSE. の 2 と お り し か な い 。 


ぁ 変 数 


変数 名 は 6 文字 以内 の 英 数 字 。 先 頭 の 文字 は 英字 。 

整数 型 先頭 が 1, J, K, L, M, N の 変 数 

実数 型 先頭 が I, J, K, L, M, N 以 外 の 変数 
この ほか に 型 の 宣言 を 行え ば , 文字 型 , 論理 型 を 含め て 自由 に 型 

を 指定 で きる 。 


定数 に 対し , プロ グラ ム 作 成 者 が 名 前 を 付け て 扱う の が 変数 で あ 
る 。 変 数 の 値 は 実行 時 に いろ いろ 変化 する 。 定 数 と 同様 。 型 が あり , 
その 記 億 する 数 の 表現 形式 に より , 変数 名 で 型 の 宣言 を する 必要 が 
ある 。 た だ し , 整数 型 と 実数 型 に つい て は , 上 記 の と お り 変 数 名 の 
先頭 文字 で 区 別 す る こと が で きる 。 こ れ を 晴 愉 の 型 宣言 と いう 。 


F@ 定 数 と 変数 


配 列 


配列 の 宣言 
配列 を 使用 する と き は , DIMENSTON 文 ま た は 型 宣言 文 に 配列 
定 言 子 を 指定 する ( 仮 配列 の 宣言 は p. 42 参 照 ) 。 


配列 宣言 子 g (9[, g] …) 
g は 配列 名 , 7 は 寸法 宣言 子 。g の 個数 を 配列 の 次 元 数 と いう 。 


寸法 宣言 子 [ :] み 


ム に は 寸法 の 下限 , み に は 寸法 の 上 限 を 指定 する 。 み が 1 の と き に 
は み だ け で よい 。 み ー 記 十 1 を 寸法 の 大 き さ と いう 。 

練 , み を 寸法 の 限界 式 と いい , 整定 数 式 (定数 と 定数 名 だ け を 含む 
結果 が 整数 型 の 式 ) が 指定 で きる 。 


ぁ 配列 要 案 の 参照 
配列 要 案 名 g(s[, s] …) 


e は 配列 名 。(s[, s] …) は 添字 。s は 添字 式 で 整数 式 (結果 が 整 
数 型 の 算術 式 ) を 指定 する 。 


【 例 1 ) 1 次 元 の 配列 
DIMENSTON A (2: る) 


0.5 


A (0)=0.5 A(-2) A(-1) A(0) A(1) A(2) 


〔 例 2 〕 2 次 元 の 配列 xi1) x.2) xQ.3) XG. の 
DIMENSTON X (2, 4) 8 
TINTEGER 文 

X(2.1) X(2.2) X(2,3) X(2.,4) 
文 (1, 4)=0 


型 宣言 文 で 配列 の 宣言 も 行 を る の で , 【 例 2 〕 の 宣言 は 「INTEG 
世 R (@. 4)」 の よう に まとめ られ る 。 
配 列 @⑯F 


ぁ 文字 部 分 列 


p ([a] : [eg]) 
また は , 
g (5[, gl] …) ([g] : [eg]) 


り は 文字 型 の 変数 名 。 z (5 [, s] …) は 文字 型 の 配列 要素 名 と す 


る 。 

ム , @ は 文字 位置 式 と いい , 整数 式 が 指定 で きる 。 gg が 1 の と き に 
は ム を 省略 で きる 。 ま た , が ヵ p ま た は co(s[, s] …) の 長 さ と 等 
し いと き は を 省略 で き る 。 


文字 型 の 変数 や 配列 要素 の 一 部 分 を 表す と き に , 文字 部 分 列 を 使 


用 する 。 

〔 例 1 〕 CH 
CHARAOTERR*8 OH EE 
CH (5:7) ニ ネ ネネ cm(5 : 7) 

【 例 2 〕 

CHARACTER *10 P 
P (4 : ) ='ABOD り /'EBPG' PROC 


P(4 : ) は 文字 位置 式 e。 の 部 分 が 省略 され て いる の で , の 長 さ と 
仮定 され , P(4 : 10) と 指定 し た の と 同じ 意味 に な る 。// は 文字 列 の 
連結 の 演算 子 。 

〔 例 3 〕 
CHARACTEBR*3 P(3,2) 


P(1.1) (2 : 2) 


P (1, 1) (2:2) = ニ " 


F@ 部 分 列 


算術 式 算術 演算 を 表す の に 用 いる 。 結 果 と し て 数 値 を 得る 。 

文字 式 文字 列 を 表す の に 用 いる 。 文字 型 の 結果 を 得る 。 

関係 式 2 つの 算術 式 の 値 ま た は 2 つの 文字 式 の 値 を 比較 する の に 
用 いる 。 算術 式 の 値 と 文字 式 の 値 を 比較 し て は な ら な い 。 真 また 
は 偽 の 値 を も つつ 論理 型 の 結果 を 得る 。 

論理 式 論理 演算 を 表す の に 用 いる 。 真 また は 偽 の 値 を も つ 論 理 型 

の 結果 を 得る 。 


各 式 を 構成 する た め の 演算 子 と し て , 算術 演算 子 , 文字 演算 子 , 
関係 演算 子 , 論理 演算 子 の 4 種類 が ある 。 
P 演算 子 の 種類 と 働き 


用 二 二 法 
算術 演算 子 ぇ を xs 科 す る 
53 xi を xs で 割る 
と x2 を 掛け る 
こ は ム デ ぇ か ら x。 を 引く 
x の 符号 を 逆転 する 
こ は 同 ぇ a と x> を 加え る 
ぇ と 同じ 


閲 作 演算 子 | .LT. | 小さ い ( く ) Bi くれ 以外 栓 


小さ いか 等 し い ( ミ ) | xi.LE. ミミ / 
等 し い (=) 

等 し く な い ( キ ) 

大 きい (>) 

大 きい か 等 し い (=) 


式 @F 


論理 演算 子 | . 6 .NOT.x ュ 
xi. AND. xz 
論理 和 xi. OR. xz 
論理 等 価 xi.EOV. > 
. | 論理 非 等 価 xa.NEOV. x 


回 回 CCY 誠 PCBC 衣 
真 真 真 真 真 偽 


演算 子 に は 次 の よう な 演算 の 優先 順位 だ ある 。 こ れ を 変更 し た け 


れ ば 括弧 ( ) を 用 いる 


品 - 間 


ーー | 


関係 演算 子 | .LT., 。.NE.,. GT., 


F@ 式 


・EOV., . 


同じ 優先 順位 の 枠 内 で は , 上 か ら 下 へ 高位 一 低位 と な る 。 
〔 例 〕 演算 順 座 を ①②… で 示す 。 
A+ せ *C (A+B)*C 
① 


① 
② 


.GT.B .AND. .RQ. A//B.BQ.C 
に に Ti 
ンー ます ま | 


KO @ 


算術 式 に 整数 型 と 実数 型 が 混在 し て いる 場合 , 整数 型 の デー タ が 
実数 型 に を そろえ られ て か ら 演 算 さ れる 。 結 果 は 実数 型 で 求め られ る 。 
整数 型 どう し の 演算 で は 結果 も 整数 型 に な る (特に 除算 の 場合 注 
意 ) 。 

〔 例 〕 次 の よう な 宣言 が あっ た 場合 で 考え る 。 
REAL A, 駐 (変数 A と 駐 は 実数 型 と し て 宣言 ) 
INTEGER MRN( 変 数 MV と N は 整数 型 と し て 宣言 ) 


A+ 双 *N  N の 値 が 実数 化 さ れ , ① の 演算 が 行わ れる 。 


と / 人 2 ① の 除算 は 整数 型 ど う し な の で , 結果 が 整数 型 で 求 
隊 め ら れる (切捨て )。M が 1 の 場合 は 1/2 の 値 は 0 な 
の で , この 算術 式 の 値 は A の 値 と な る 。 


式 ⑫F 


文 の 種類 


文 に は 実行 文 と 非 実行 文 が ある 。 以 下 に 文 の 種類 を あげ る 。 

実行 文 

① 算 術 代入 文 , 論理 代入 文 , 文 番号 代入 文 (ASSTGT 文 ), 文字 代 
入 文 

② 単 純 GO TO 文 , 計算 形 GO TO 文 , 割当 て 形 GO TO 文 

⑨ 算 術 TE' 文 , 論理 IF 文 

④ プ ロック TP 文 , ELSE 文 , END TE 文 , ELSE TE 文 

⑤ CONTTNUE 文 

⑥ STOP 文 , PAUSE 文 

⑦DO 文 

READ 文 , WRITE 文 , PRTNT 文 

⑨ REWTIND 文 , BAOKSPAO 文 , ENDETLE 文 , OPEN 
文 , CLOSR 文 

CAL1T, 文 」 RETURN 文 

⑪ END 文 

ぁ 非 実 行文 

① PROGRAM 文 , FUNOTTON 文 , SUBROUTTNE 文 , ENTRY 
文 」BLOOK DATA 文 

② DIMENSTON 文 , COMMON 文 , EQUIVALENOE 文 , 
IMPTLiTOTT 文 、PARAMETER 文 , EXTRNAT 文 
INTRTNSTO 文 

⑬③ INTEGER 文 」 REAL 文 , LOGTOAL 文 」 OHARAOTRER 文 

④ DATA 文 

⑤ FORMAT 文 

⑥ 文 関数 定義 文 


F⑳ 文 の 種類 


宣言 文 
と EQUIVALENOE 文 
EQUIVALENCE (z7s の [, (z75 の ] … 


ns は 変数 名 , 配列 要素 名 , 文字 部 分 列 の 並び 。 各 並び は 少な く 


と も 2 つの 名 前 を 含む こと 。 ま た , z/jsf の 並び の な か に ある 添字 式 
や 文字 位置 式 は 整定 数 式 で な けれ ば な ら な い 。 


機能 - ょ 1 つの z/ が s7 中 に 現れ る 名 前 が , すべ て 同じ 記憶 場所 に あ 


る も の と 指示 する た め の 文 。 AG1) 。A(2) AG3) 
① DIMENSTON A(3), B (83, 2) 
EQUIVALENOE (A (3), 多 ) 3 


A(3) と が 同じ 記憶 場所 に な る 。A(3)= ニ 0 と する 代わ り に = ニ 0 
と し て も 同じ 結果 が 得 ら れる 。 

EBQUIVATLENOE (A, 人 鐘 ) A(1)  A(2) 4A(3) 

配列 名 を 指定 し た 場合 , そ 
の 配列 の 先頭 の 要素 を 指定 し 
だ さだ 佐 周 志 。 

EQUTVATLENOEE (A, B (1, 2)) 

2 次 元 の 配列 で は , 要素 は Bi) B(2.1) B3.1) B(.2) B(2.2) B(3.2) 
列 ご と に 並ん で いる と 考え る 。 

A(1) A(2) A(3) 

②OHARAOTER A*5.B*3.C(②⑫)* う 3 

EQUTVATLENOE (A(2: 2), B) 


宣言 文 ⑩F 


文字 型 の 場合 は 文字 型 の も の と し か 記憶 場所 を 共有 で き な い 。 


EQUTVALERNOCEB (BC(②)) c) c(2) 
PP 
ューーーーーー レ ーーーーーー ノ 
B 
ぁ 型 宣言 文 


pp は INTEGER, REAL, LOGICAL の いずれ か 。 ヵ は 変数 名 , 配 
列 名 , 配列 宣言 子 , 定 数 名 。 関数 名 、 ま た は 仮 手続 き 名 と する 。 


機能 と と 文字 型 以 外 の デー タ の 型 を 宣言 する 。 め が INTEGER だ 
と 整数 型 。 REAL は 実数 型 。 LOGTOAL は 論理 型 と な る 。 


CHARACTER [* /ez [,]] zo7z[, 7zg7] … 


zgn は 次 の いずれ か 。 

り [* /ez] ge [(⑦] [* /ez] 

ヵ は 変数 名 。 定数 名 , 関数 名 また は 仮 手続 き 名 と する 。c は 配列 
名 , cg (9) は 配列 宣言 子 。/ez は 長 さ (文字 の 個数 ) で , これ を 長 さ 
指定 と いう 。 省 略す る と 1 と な る 。 


機能 と テ ヶ デー タ が 文字 型 で ある こと を 宣言 する 。 
①OHARAOTER *3 AB*5 

CHARAOTER 直後 の 長 さ 指定 は , 変数 名 や 配列 宣言 子 な どの 後 
に 長 さ 指定 が な い 場 合 に 適用 され る 。 ① で は A は 3,B は 5 の 長 さ 
の 文字 型 と し て 定 言 され る 。 
②OCHARACTER O(2)*S 

配列 の 場合 , 長 さ 指定 は 各 配 列 要素 に 対し て の も の に な る 。② で 
は C は 文字 型 の 配列 で , 各 要 素 C(1), C(2) は 長 さ 3 と な る 。 
③ PARAMETER (N=10) 

CHARAOCTER XX *(N+]) 


F ゆ 宣言 文 


長 さ 指 定 に は 整定 数 式 が 指定 で きる 。 こ の 場合 , 式 は 括弧 で くく < 
る こと 。③ の XX は 長 さ 11 文 字 と な る 。 
④ OHARAOCTEBR *(*) OH 

PARAMRETER (OH= 'ABO' 

文字 型 の 定数 名 の 場合 , 長 さ 指定 に (*) が 使用 で きる 。 こ の 場 
合 , PARAMETER 文 で 設定 し た 文字 定数 の 長き に な る 。④ で は 
CH は 長 さ 3 の 文字 型 の 定数 。 こ の ほか , 文字 型 の 仮 引数 の 宣言 に も 
(*) の 長 さ 指定 が 使用 で きる 。 こ の 場合 , 対応 する 実 引数 の 長 さと 
合わ せら れる 。 
py IMPLIOIT 文 


IMPLICIT yp (g [, cg] …) [pp (g [gg] …)] … 


pp は INTEGER, REAL, LOGICAL, CHARACTER[* /ex] の 
ぃ ゅ いずれ か 。 oc は 1 つの 英字 また は アル ファ ベッ ト 順 で の 英字 の 範囲 。 


機能 と と 指定 され た 英字 で 始ま る 名 前 の 変数 , 配列 定数 名 , 外部 
関数 お よび 文 関数 の 型 を 宣言 する 。 

デー タ の 型 の 決定 方 法 に は , 型 宣言 文 , IMPLTOTT 文 , 暗 村 の 型 
宣言 が ある が , 優先 順位 は 次 の と お り 。 

() 型 宣言 

(⑪) IMPLTOTT 文 

⑪ 暗黙 の 型 宣言 
① TMPTLTOCTT REAL (L), INTEGER (メー の ) 

英字 の 範囲 で 宣言 する 場合 , 英字 を 一 で つなぐ 。 ゆで は 上 L で 始ま 
る 変数 や 配列 な を ど は すべ て 実数 型 , X、Y, ZZ で 始ま る も の は 整数 型 
に な る 。 
② TMPLTOTT CHARAOTER*10 (『) 

TINTEGER FREQ 

F で 始ま る 名 前 は 10 文 字 の 文字 型 で ある と 宣言 され て いる が , 型 


宣言 文 ⑯F 


宣言 文 で REQ だ け は 整数 型 と し て 宣言 し 直し て いる 。 
> PAHAMETEH 文 


PARAMETER ( ヵ ーe [、 pe] …) 


p を 定数 名 と いう 。 名 称 の 付け 方 の 規則 は 変数 名 と 同じ 。 e に は 定 
数 を 指定 する 。 


機能 と と 定数 に 対し 名 前 を 付け る 。 
① PARAMETER (N=5) 

DTMENSTON X( 一 N : N) 

この DIMENSTON 文 は DTMENSTON XX( 一 5: 5) と 同じ 。 
②OHARAOTER*4 P 

PARAMETER (P ニ **** ) 


F め 宣言 文 


初期 値 の 設定 
と DATA 文 


DATA z/7s7/c77s7/[[, ] z/zs7/c77577/] … 


zzsf は 変数 名 配列 名 。 配列 要素 名 , 部 分 列 名 また は DO 形 並び 


の 並び 。c/s: は 「c」 と 「7 *※ c」 の 形 の 並び 。c は 定数 また は 定数 
名 。7 は ゼロ で な い 符 号 な し 整定 数 また は この よう な 定数 の 定数 
名 。 


p ロロ 形 並び 


(g7fs が 王 太 。 7 [が]) 


disr は 配列 要素 名 また は DO 形 並び 。: は 整数 型 の 変数 名 で DO 
形 制御 変数 と いう 。 ヵ ,, zz, 7。 は 整定 数 式 。 
機能 と と 変数 や 配列 な を ど に 初期 値 を 設定 する 。 た だ し , 「 仮 引数 」, 
「 無 名 共通 プ ブロック 中 の 要素 」 に お いて は 初期 値 設 定 を 行え な い 。 
①DATA A, B/1.0, 2.5/ 

z7s7 中 の 項目 は , c/s7 中 の 定数 と 先頭 か ら 1 対 1 に 対応 する 。 ① 
で は A に 1.0, B に 2.5 が 初期 値 と し て 設定 され る 。 
② DIMENSTON KK (5) 

DATA 人 KK/5*O/ 

配列 名 を 指定 する と , すべ て の 配列 要素 を 指定 し た こと に な る 。 
また , 定数 の 繰返し の 指定 が で きる 。② は 次 の DATA 文 と 同義 。 

DATA K(1), K (2⑫), K (3③), KK (4), K (5)/0, 0, 0, 0, 0/ 
③ DIMENSTON 又 (100) 

DATA (X(1), ユニ 1, 20) /20 * 1.0/ 

DO 形 並び を 使用 する と , 配列 の 一 部 分 に 初期 値 を 設定 で きる 。③ 
で は X (1) 一 又 (20) に 1.0 を 設定 し て いる 。 


初期 値 の 設定 @F 


代入 文 


算術 代入 文 


り は 了 数 型 。 実 数 型 の 変数 名 また は 配列 要素 名 。e は 算術 式 。 
機能 - と 式 e の 値 が 2 に 代入 され る 。 式 e の 値 の 型 と っ の 型 が 異な 
る 場合 は , ぃ の 型 に 合わ され て か ら 代 入 さ れる 。 

ぁ 論理 代入 文 


り は 論理 型 の 変数 名 また は 配列 要素 名 。e は 論理 式 。 


機能 と 式 e の 値 ( 真 か 偽 ) が ヵ に 代入 され る 。 
ぁ 文 番号 代入 文 


ASSIGN s TO ' 


S は 文 番 号 , 7 は 整数 型 の 変数 名 。 


工 能 と と 文 番 号 s が 変数 7 に 割り 当て られ る 。 文 番号 は , プロ グラ ム 


単位 内 の 実行 文 また は FORMAT 文 の 文 番 号 で ある こと 。 変数 7 は 
割当 て 形 GO TO 文 , ま た は 入出 力 文中 の 書式 識別 子 で 利用 する 。 
ぁ 文字 代入 文 


り は 文字 型 の 変数 名 配列 要素 名 また は 部 分 列 名 。e は 文字 


機能 と と ょ 式 e の 値 が ヵ に 代入 され る 。 
「 み の 長 さ >e の 長 さ 」 の 場合 , e は 左 詰め で 2 に 代入 され , 右側 に 
は 空白 が 埋め られ る 。「 ヵ の 長 さ <e の 長 さ 」 の 場合 , e の 長い 分 が 右 
側 か ら 切 り 捨 て られ ヵ に 代入 され る 。 


F@ 代 入 文 


制御 文 


単純 GOD T0 文 


s は プロ グラ ム 単 位 内 の 実行 文 の 文 番号 。 


機能 - こ この 文 の 実行 に より , 文 番号 s を も つ 文 が 次 に 実行 きれ る 。 
ぁ 計 算 形 GO TO 文 
GO TO (s[, s]… の 上 上] : 


i は 幣 数 式 , s は プロ グラ ム 単 位 内 の 実行 文 の 文 番号 。 


機能 -- こ の 文 の 実行 に より , 式 7 が 評価 され , 文 番号 の 並び 中 の ? 
番目 の 文 番 号 を も つ 文 が 次 に 実行 され る 。 
①GO TO (10, 20) N 

N が 1 の 場合 文 番 号 10 に , 2 の 場合 文 番 号 20 へ 移る 。 そ れ 以 外 の 
場合 は , この 文 の 次 の 文 へ 実行 が 移る 。 
割当 て 形 GO T ロ 文 


GO TOg[[](s[. s] …] 
i は 整数 型 の 変数 名 、s は プロ グラ ム 単 位 中 の 実行 文 の 文 番号 。 
機能 - こ この 文 の 実行 に より , 変数 7 に 割り 当て られ て いる 文 番号 
の 文 が 次 に 実行 され る 。7 に 割り 当て うる 文 番号 を 後ろ に 括弧 を 付 
け て 並べ て も よい 。 

① ASSTGN 100 TO + 

GO 当 EO ェ 

① の GO TO 文 が 実行 され る と , 次 は 文 番号 100 へ 移る 。 


制御 文 @F 


ぁ 人 算術 IF 文 


IF (e) 5i。 sz, 5 


e は 整数 式 ま た は 実数 式 。』, s, ss は プロ グラ ム 単 位 内 の 実行 文 
の 文 番号 。 


機能 - と e く 0 な ら ば 次 に 文 番号 s の 文 が 実行 され る 。 同様 に e= 
0 な ら ば ぁ s, e> 0 な ら ば s の 文 が 実行 され る 。 
①TE (M+RN) 10, 20, 30 

M+TN の 値 が 負 な ら ば 文 番号 10,. 0 な ら ば 文 番号 20, 正 な ら ば 文 
番号 30 の 文 へ 移る 。 
ぁ 論理 IF 文 


IF (e) sz 


e は 論理 式 。 s: は DO 文 , ブ ロッ ク IF 文 , ELSE IF 文 」ELSE 


文 ,END IF 文 」END 文 お よび ほか の 論理 IF 文 の いずれ で も な い 
実行 文 


機能 と テ ょ > e の 値 が 真 な ら ば 文 s7 が 実行 され る 。 e の 値 が 偽 な ら ば 文 
SZ は 実行 され ず , 次 の 文 へ 移る 。 
① TE (N.GT. 10) メ =0 

N の 値 が 10 よ り 大 きい 場合 だ け 文 を 0 に する 。 
②TIE (M+N. EQ.0) GO TO 10 

M 十 N が 0 な ら ば 文 番号 10 の 文 へ 移る 。 M 十 N が 0 で な けれ ば こ 
の 論理 TE 文 の 次 の 文 へ 移る 。 


F@ 制 御 文 


ブロ ッ ク IF 文 , ELSE 文 , END IF 文 


e は 論理 式 。H,, H。 に は 複数 の 文 が 指定 で き , H」 を IF ブロ ッ ク , 
H。 を ELSE ブロ ッ ク と いう 。 


機能 と と e の 値 が 真 な ら ば TE ブロ ッ ク , 偽 な ら ば ELSE プ ブロッ 
ク が 実行 され る 。 
① TEF (A.GT.B) THERN 
に ご 
ELSE 
一 10 
END TE 
A>B な ら ば メニ A, A ミ SB なら ば 文 = ニ 0 が 実行 され る 。 
② TE (P. EQ. 0) THEN 
A=O0 
B=O0 
EEND TE 
P=0 の と きだ け A=0, =0 を 実行 する 。P キ 0 の と き は 何 も し 
な い 。 こ の 場合 も END TE 文 は 必ず 指定 する こと 。 
③ TE (P. NE.0) THETN 
ELS 選 
A=0 
B=0 
END TE 


制御 文 ⑱F 


TP プロ ッ ク は 空 で も よい 。③ で は P= ニ 0 の と きだ け A=0, B=0 
を 実行 する 。 
④ TE' (P. EQ.0) THETN 
TFP (A.GT.B) THERN 
>e 三 バ 
LSE 
3() 
END TE 
END TE 
TE プロ ッ ク や ELSE ブロ ッ ク に , さら に ブロ ッ ク TP 文 を 指定 
する こと が で きる 。 ④ の よう な 場合 , ELSB 文 は 1 番 近 い ブ ロッ ク 
TE 文 に 対応 する 。 よっ て , P=0 か つ A>B の 場合 に は 文 ニ A, P= 
0 か つ ASB の 場合 に は 文 ニ 0 が 実行 され る 。 
p ELSE IF 文 


IF (e) THEN 


ELSE IE (e) THEN 
Hz 

ELSE IF (e」) THEN 
Hs 


ELSE IF (e,) THEN 
H。 
LSE 


END IF 


の 4 ) は 論理 式 。 有 Hi, 昌 H。, の H,。」 に は 複数 の 文 が 指定 
で き , 有 H。, H。, sa ) H,。 を ELSE IF プロ ッ ク と いう 。 


F 人 の 制御 文 


機能 と ょ 
が 真 な ら ば 有 H, 
が 偽 , が 真 な ら ば H。 
gg, が 偽 , が 真 な ら ば し 
こ が 実行 され る 。 
gg の) の っ の ココ が 偽 。 gg が 真 な ら ば HH。 
6, , "っ の すべ て が 偽 な ら ば 古 請 
① TE (A.GT. 10) THEN 
N ニ 3 
ELSE TR (A.GT.5) THERN 
N = ニ る 
BLSE 
NN ニュ 1 
BND TE 
10 く A の と き N= ニ 3, 5 く A ミ S10 の と き N=2, AS5 の と き N= 
1 が 実行 され る 。 
ヶ ロロ 文 


DO s[] 2 デ 6、e[, e] 


s は 実行 文 の 文 番 号 。: は DO 変数 と いい , 整数 型 、 実 数 型 の 変数 
名 。, @, ム は それ ぞ れ 整数 型 。 実 数 型 の 式 。 


機能 と ょ 繰返し を 指定 する の に 用 いる 。DO 文 を 使っ た 繰返し 処理 
の 形 は 次 の と お り 。 


DO Ss 7? ニム, @, @@ 


処理 HH の 部 分 を DO ルー プ , 文 番号 s の 文 を DO ルー プ の 衣 末 文 
と いう 。 


制御 文 ⑳⑩F 


ム , @ ら ) の 値 を それ ぞ れ 7 7 7 と する と , DO ルー プ の 繰 

返し 数 は 次 の 式 で 定め られ る 。 た だ し , が 省略 され る と 7 は 1 と 
な る 。 

MAX (IN ((m。 一 m」 十 m。)/m。), 0) 

この 7? ヵ ヵ , 7 27 を それ ぞ れ 初期 値 パ ラメ タ , 終値 パラ メタ , 増 
分 パラ メタ と いう 。 

DO ルー プ の 端末 文 に は 次 の 文 は 指定 で き な い 。 単純 GO TO 文 , 
割当 て 形 GO TO 文 , 算術 IF 文 , ブ ロッ ク IP 文 , LSE TE 文 , 
BLSEB 文 , END TEF 文 , REBTURR 文 , STOP 文 , END 文 , 
DO 文 。 
① DO 10 エ =1, NR 

10 WRITE(6,*) 1 エネ ** る 2 

2a ン 27 かつ > 0 の 場合 と 2 く 272 か つく 0 の 場合 
し 数 は 0 に な る 。 ① で は N< く 1 の 場合 , WRITE 文 は 1 回 8 
れ な い 。 N= 1 の 場合 は , DO 変数 1 の 値 が 1 か ら / ま て 変化 し な 
が ら 回 WRITE 文 が 実行 され る 。 

の ② 呈 DO 10 記 1 N 
DO 20 ユエ =1,.M 
A (T, J)=0.0 

20 CONTTNUE 

10 CONTTNUE 

DO ルー プ 中 に さら に 別 の DO ルー プ を 含め る こと が で きる 。② 
で は は 配列 A の 77 行列 分 の 要素 を すべ て 0 に し て いる 。 こ の 場 
合 , 次 の よう に 端末 文 を 共有 する こと が で きる 。 

DO 10 J ゴ =1,TRN 
DO 10 エ = ニ 1,. M 
A ([, )=0.0 

10 CONTTNUE 


F ゆ 制御 文 


《⑥) DO 100 エニ =R, 1, 一 1 
TE (KK (T) .EBQ.0) GO TO 200 

100 CONTTNUE 

200 WRTTE (6,*) 1 

DO ルー プ 中 か ら , その 範囲 外 へ GO TO 文 な ど て 制御 を 移し た 
場合 , DO 変数 は その と まき の 値 を 保持 し て いる 。 また , 途中 で 飛び 出 
すこ と な く 繰 返し 処理 を 終え た 場合 、 DO 変数 の 値 は 「 終 値 パ ラメ 
ター 増分 パラ メタ 」 の 値 に を っ て いる 。 

③ で は K (N), KK (Nー1)… と 配列 要素 を 順に 調べ て いっ て , 最初 
に 現れ た 0 の 要素 の 添字 式 を 出力 し て いる 。 0 の 要素 が な い 場 合 は , 
繰返し 処理 を 終了 し た と き に TL の 値 は 1 一 1=0 と な っ て いる 。 
②⑳< 『 DO 8 素 = コ 00010050g 

5 WRITE (6, *) , 又 * ネ * る 2 

DO 変数 に 実数 型 の も の も 使用 で きる 。 ① で は DO 変数 又 の 値 は 
0.0, 0.5, 1.0, 1.5… と 変化 する 。 

テ CONTINUE 文 


CONTINUE 


機能 - と この 文 の 実行 は 何 の 効 果 も も た な い 。DO ルー プ の 敵 末 文 
に よく 使用 され る 。 
p GTOP 文 


STOP[z] 


z は 文字 定数 また は 5 けた 以内 の 数 字 列 。 


機能 - > 実行 が 終了 する 。 終了 時 に 文字 定数 また は 数 字 列 が 参照 可 
能 と な る 。 


制御 文 @F 


ヶ PAUSE 文 


機能 と 実行 が 一 時 中 断 する 。 実行 の 一 時 中 断 時 に 文字 定数 また は 
数 字 列 が 参照 可能 と な る 。 

p END 文 

END 

機能 テー プロ グラ ム 単 位 の 最後 を 示す 。 主 プア ログ ラム 内 で 実行 する 
と , 実行 は 終了 する 。 


F 人 ゆ 制 御 文 


p HEAD 文 , WRITE 文 


READ (cs の [zo/s 如 
WRITE (czs の [zo/zs 


cs を 制御 情報 並び ど と いい , 次 の 項目 を 指定 で きる 。 


[UNIT=] z [FMT=] / 
REC ニ が IOSTAT テ zos 
ERR テ s END ニ =s 


jo を 入出 力 並 びと いい , 変数 名 , 配列 要素 名 , 部 分 列 名 配列 
名 , DO 形 並び を 指定 で きる 。 WRITE 文 で は さら に 任意 の 式 が 指定 
で きる 。 


機能 - > READ 文 は 入力 並び に 対し デー タ を 入力 する 。 WRITE 
文 は 出力 並び の 値 を 出力 する 。 

制御 情報 並び の 各 項 目 の 意味 は 次 の と お り 。 
(1) [UNIm=] z 

装置 指定 子 と いい , どの ファ イル に 対し 入出 力 を 行う か , z, に 整数 
値 を 指定 する こと で 識別 する 。z を 装置 識別 子 と いう 。 
(2) [FMm 三 ] ア 

書式 指定 子 と いう 。 これ を 含む も の を 書式 付き 入出 力 , 含ま な い 
も の を 書式 な し 入出 力 と いう 。 書 式 付き 入出 力 の 場合 ,/ の 内 容 に 従 
っ て 変換 を 行い 入出 力 を 実行 する 。/ を 書式 識別 子 と いい , これ に 指 
定 で きる も の は 次 の と お り 。 
@EORMAT 文 の 文 番 号 
@FORMAT 文 の 文 番号 が 割り 当て られ て いる 整数 型 の 変数 名 
@ 文字 配列 名 
@ 任意 の 文字 式 


入出 力 文 ぬ ⑯F 


@ 是 印 (*) 
(3) REO ニ 7 ァ 77 
記録 指定 子 と いう 。 こ れ を 合 む も の を 直接 探査 入出 力 、 含 まな い 
も の を 順番 探査 入出 力 と いう 。 直接 探 査 の 場合 , 何 番目 の 記録 に 対 
し 入出 力 を 行う か を この 7 で 指定 する 。 
(4) IOSTAT ニ zos 
入出 力 状態 指定 子 と いい , 誤り 条件 また は ファ イル 終了 条件 が 検 
出さ れ た 場合 , ゼロ 以外 の 値 が zos に 指定 し た 整数 型 の 変数 (配列 要 
素 ) に 返さ れる 。 
(5) ERR=s 
誤り 指定 子 と いい , 誤り 条件 を 検出 し た 場合 , s に 指定 し た 文 番 号 
の 文 が 次 に 実行 され る 。 
(6) END=s 
ファ イル 終了 指定 子 と いい , ファ イル 終了 条件 を 検出 し た 場合 , 
s に 指定 し た 文 番号 の 文 が 次 に 実行 され る 。 
① READ (5, 1, END=90) 4, B 
装置 指定 子 の UNTT=, 書式 指定 子 の FMT ニ = が 省略 され た 場合 , 
z と ア げ は 制御 情報 並び の 1 番目 と 2 番目 に 指定 し な けれ ば な ら な い 。 
① で は 5 番 の ファ イル か ら デ ー タ を 変数 A、B に 入力 する 。 書 式 
は 文 番 号 1 の FORMAT 文 に 従い ファ イル の 終り な ら は ば 文 番号 90 
に 飛ぶ 。 
② WRITE (10, REC=5) 又 
書式 指定 子 が な い 場 合 , 書式 に よる 変換 は 行わ れん な い 。② は 直接 
探査 の 出力 で , 5 番目 の 記録 に X の 値 を 内 部 形式 の まま 出力 する 。 
⑨③ OH='"(E 10.0, 1 10)" 
READ (5, CH) P,RN 
書式 指定 子 に 文字 式 ま た は 文字 配列 名 が 指定 され た 場合 , その 内 
容 の 書式 に 従っ て 入出 力 が 行わ れる 。③ は 次 と 同じ 。 
F@ 入 出力 文 


READ (5, 1) P,RN 

1 FORMAT (F 10.0, 1 10) 
④ WRITE (6, *) P, N 

書式 指定 子 に 星 印 (*) が 指定 され る と , 並び に よる 入出 力 が 行 
われ る 。 入力 で は デー タ は けた 数 を 気 に せ ず , 区 切り を コン マ か 空 
白 に し て 作っ て お け ば よい 。 出力 は 処理 系 が 適当 に 空白 な ど で 間 を 
区 切っ て 行わ れる 。 


p OPEN 文 , CLOSE 文 


OPEN (o/2s の 
CLOSE (c/77s の 


os: に は 次 の 項目 が 指定 で きる 。 
[UNIT=] x IOSTAT テ zos 
ERR ニ s FILE= ヵ 
STATUS 三 sg ACCESS 三 gcc 
FORM= 万 RECL= ァ 7/ 
BLANK テ た 


es: に は 次 の 項目 が 指定 で きる 。 
[UNIT=] z IOSTATー7os 
ERR= テ s STATUS 三 szg 


機能 と OPEN 文 は ファ イル と 装置 の 接続 を 行う 。o/ が s7 の 各 項 目 
の 意味 は 次 の と お り 。 た だ し , p.25 に あげ た 制御 情報 並び に 含ま れる 
も の は 省く 。 
(1) FTLEE= 放 7 

77z に は ファ イル の 名 前 を 文字 式 と し て 指定 する 。 
(2) STATUS=s 奴 

ファ イル の 状態 を 指定 する 。 sg が "OLD' で あれ ば , ファ イル は 
すでに ある と みな され る 。s 娘 が NEW の 場合 、 フ ァイル は 生成 さ 
れる 。 ま た, 'SCRATOCH' で は ファ イル は 使用 後 消去 さ れる 。 


入出 力 文 @F 


"UN KNOWN' で は 状態 は 処理 系 に 依存 する 。 
(3) ACCESS=Zcc 

ファ イル の 探査 法 を 指定 する 。 gcc が 'SEQUENTTAT' で あれ ば 
順番 探査 "DIRECT' で あれ ば 直接 探査 と な る 。 
(4) FORM= カ 2 

書式 の あり な し を 指定 する 。77z が "FORMATTED' で あれ ば 書 
式 付き , "UNEORMATTED' な ら ば 書式 な し で 入出 力 が 行わ れる 。 
(5) RECL=77 

直接 探査 の 場合 だ け 必 要 。77 に は 記録 の 長 さ を 整数 式 で 指定 。 
(6) BLANK=/ ヵ 7 ん 

書式 付き 入出 力 に お いて , 記録 に 含ま れる 空 折 に つい て 指定 する 。 
7 が "NULL" で あれ ば , 入力 欄 中 の 空白 は すべ て 無視 され る 。 た 
だ し , 空白 の 欄 は ゼロ の 値 を も つも の と みな され る 。 "ERO' な ら 
ば , 先行 する 空 折 は すべ て ゼロ と みな され る 。 


CLOSE 文 は ファ イル と 装置 の 接続 を 終了 させ る 。 cs7 の 各 項 目 
の 意味 は , czZs7 お よび o/:s7 の 項目 に 含ま れる の で 説明 を 省く 。 
① OPEN (10, ACCESS= 'SEBQUENTTAT」', 

* FORM= "FORMATTED') 

10 番 の ファ イル に つい て の OPEN 文 。 順 番 探査 で か つ 書 式 付き 
入出 力 を 行う 。 
② OPEN (20, ACCESS= "DITREOCT' 

* FORM= 'UNFEORMATTED' 

* REOL=20) 

20 番 の ファ イル に つい て の OPRN 文 。 直 接 探査 で か つ 午 式 な し 
で 入出 力 を 行う 。 な お , 記録 の 長 さ は 20 と な っ て ぃ る 。 この OPEN 
文 に 対応 する CLOS 到 文 は 次 の よう に 指定 すれ ば よい 。 

CLOSBE (20) 


F 人 @ 入 出力 文 


> BACKSPACE 文 , ENDFILE 文 , HEWIND 文 


BACKSPACE z 
ENDEILE z 


REWIND z 
kz に は 装置 城 別 子 を 指定 する 。 


機能 と ょ BAOKSPAOE 文 の 実行 に より , 現在 の 記録 の 直前 の 記録 


に 位置 付け られ る 。 
ENDETLE 文 の 実行 に より , 現在 の 記録 の 後に ファ イル 終了 記 
録 が 書か れる 。 


RWTND 文 の 実行 に より , ファ イル の 始点 に 位置 付け られ る 。 
ぁ 書式 仕様 


([77s) 
午 式 仕様 は 次 の 方 法 で 与え る 。 


@ FORMAT 文 
@ 文字 配列 、 文字 変数 また は ほか の 文字 式 の 値 


機能 と > 書式 付き 入出 力 に お いて , ファ イル の 記録 中 の デー タ と 内 
部 形式 と の 変換 を 行う 。 

Zs7 中 に 指定 する 編集 記述 子 に は , 繰返し の 指定 が で きる 反復 可 
能 編集 記述 子 と で き な い 反復 不能 編集 記述 子 が ある 。 そ れ ぞ れ の 編 
集 記述 子 の 種類 を あげ る 。 

1) 反復 可能 編集 記述 子 

7/ 2 の . 72 

Ez. の Ez の . の 世 . の Be 

1C77 呈 /4 Gzo. の Be 

七 の 

A P2// 


入出 力 文 ⑳F 


(②) 反 復 不能 編集 記述 子 
7/27//K0/ 0 還 科 5『/7 CO / 


Tc T エ と TRc 
7 人 

/ 

避 SP SS 
P 

BN B 


反復 可能 編集 記述 子 は 次 の よう に 繰返し の 指定 を し , まとめ て 
書く こと が で きる 。 

T5, 15,T5 一 315 

編集 記述 子 と 入出 力 並び 項目 の 対応 は 次 の よう に な る 。 

反復 可能 編集 記述 子 の 数 が 入出 力 並び 項目 の 数 より 多い 場合 , 余 
っ た 編集 記述 子 は 無 祝 さ れる 

WRITE (6, 1) A,R 
1 FORMAT ("1', 10.1, T10, FE10.1) 


i 
無視 さ れる 


@ 反復 可能 編集 記述 子 の 数 が 入出 力 並び 項目 の 数 より 少な り 場 


書式 仕様 が 繰り 返さ れる 。 こ の 場合 , 右 か ら 2 番目 の 古 所 に 計 
応 する 左 括弧 に 戻る 


READ(5, 1) 上 い か =1.N) 
1 HBORMAT 907 p10 1) 


1 枚 目 2 枚 日 
3 3 枚 昌 
次 に , それ ぞ れ の 編集 記述 子 の 機能 に つい て 述べ る 。 


F⑳ 入 出力 文 


①Tzw の. 772 
整数 型 の 編集 に 用 いる 。 % は 全 け た 数 。 出力 で は T. 7z の 場合 少 
を なく と も けた に な る よう に , 先頭 に 必要 な ら ば 0 を 付け る 。 
入力 欄 編集 記述 子 入力 され た 値 


こ 。 1 る 9 15 12S 

ーー 129 15 ー123 

こ ェ ュー 1 る T5. る ピッ 
出力 され る 値 。 編集 記述 子 出力 欄 

123 15 こ ー 129 

123 T5.4 ー0125 


② Ez. の 世 2 の . の Ezo. の Be 

実数 型 の 編集 に 用 いる 。% は 全 け た 数 。 入 力 で は どれ も 同じ 働き 
を し , は 小数 点 以下 の けた 数 に な る 。 た だ し , 入力 デー タ 中 に 小数 
点 が 含ま れる 場合 は こち ら が 優先 する 。 

出力 で は 形式 が 異な る 。Ezo.9 は 小数 点 以 下 グ けた て で 出力 され 
る 。Ez. の お よび 到 w. の Be は 指数 部 付き で , 次 の よう な 形 で 出力 さ 
れる 。 仮数 部 の 小数 点 以 下 が の 9 けた と な る 。 な お , Ezw. の ERe の e は 
指数 部 の けた 数 と な る 。 


土 0 . る 名 …2。 の の 


入力 欄 編集 記述 子 入力 され た 値 
ー・ 501 F5.1 30.1 
ーーー556 E6.3 ー0.556 
出力 され る 値 。 編集 記述 子 出力 欄 
0.1234 10? F7.1 ミト いつ 
0.9876x10* EE10.3 ー0.988E 二 02 


0.357※x 10-5 12.35E る こ 。 0.357 モ エー005 
⑨ Gz. の zo. の Be 
実数 型 の 編集 に 用 いる 。 入力 で は Ez. の と 同じ 働き を する 。 出力 


入出 力 文 @F 


で は 出力 され る 値 の 絶対 値 に よっ て 表現 が 異な る 。 デ ー タ の 絶対 値 
を N と する と , NN<0.1 また は 性 10*※*d の と き は , 選 %. の また 
は Ez%. の BEBe と 同じ し 。 そ れ 以 外 の と き は 次 の よう に な る 。 た だ ただし, z 
は Gz. の の と き 4, G. の ERBe の と き e 十 2 と する 。 


デー タ の 絶対 値 実行 され る 編集 
0.1 ミ N< ぐ 1 EE( ゅ 一 2). の 72( ご 9) 


1 エミ N ぐ 10 E( ゅ ー2). (の ー 1), (ご ) 


10 * *※(dー2) ミ N ぐ 10 *※*(dー1) BE( 一 2). 1, 2(( ご こう 
10 *※*(dー1) ミ N< く 10** ネ dQ E(w 一 2). 0,z( こ ) 
④ 1 

論理 型 の 編集 に 用 いる 。 め % は 全 け た 数 。 入力 デー タ と し て は T や 
F の 文字 の 前 に 空白 , コ ンマ が あっ て も よい 。 ま た, PT や EE に 続い 
て 任意 の 文字 が あっ て よい 。 


入力 欄 編集 記述 子 入力 され た 値 


本 L6 真 
ー. FALSE. Li8 偽 
出力 され る 値 。 編集 記述 子 出力 欄 
真 L5 本 krot 
偽 3 1 
⑤ 4A AZ の 


文字 型 の 編集 。% は 全 け た 数 。z を 指定 し な いと , 入出 力 項 目 の 
長 さと 同じ し 文字 数 が 仮定 され る 。 
入力 欄 が ABCDEFGHI で ある と する 。 
編集 記述 子 入力 され た 値 ( 入 力 先 は 長き 5 と する ) 


A43 ABOC、,, 
A47 CDEEG 
4 ABODE 


F ゆ 入出 力 文 


出力 され る 値 は ABCDEFGHI (長き さ 9) と する 。 
編集 記述 子 出力 欄 


A ABCDEEFGHT 
A45 ABCDE 
A12 ここ っ ABCDEFGHT 


⑥ ! 訪 を … 2H 太 ん … ん ん 
文字 列 訪 … な の 出力 に 用 いる 。 


編集 記述 子 出力 棚 
"FORTRANT' FORTRAR 
5HJOHOU JOHOU 


の ⑦ Tc uu 町 2 TRc 
記録 の 任意 の 文字 へ の 位置 付け に 用 いる 。Tc は 記録 の 先頭 か ら c 
文字 目 に 位置 付け る 。TLc は 現在 の 位置 か ら 左 へ <c 文 字 分 ずら す 。 
TRc は 現在 の 位置 か ら 右 へ c 文字 分 ずら す 。 
READ (5, 1) 4, B, O 
1 FORMAT (T10, F5.1, 1, F5.1, 20, F5.1) 
この 例 で は 10 一 15 け た 目 を 変数 4, 1 一 5 けた 目 を B, 20 一 25 け 
た 目 を C に 入力 する 。 
7 文 
記録 中 で の 現在 の 文字 位置 か ら ヵ 文字 右 に ずら す 。 出力 で は 空白 
が 出力 され , 入力 で は z けた 読み 飛ば すこ と が で きる 。 
⑨ / 
記録 の 区 切り を 示す 。 
READ (5, 1) 4, B, C 
1 FORMAT (/F5.1//F5.1//F5.1) 
2 枚 目 の カー ド か ら 変 数 A に , 4 枚 目 か ら B に , 6 枚 目 か ら C に 
デー タ を 入力 する 。 
WRTTE(6, 2) A, B, C 


入出 力 文 WF 


2 FORMAT(1'"A ニ FT10.1/" 2P10.1) 

1 行 目 に A の 値 , 2 行 目 に B と CO の 値 を 出力 する 。 

8 

入出 力 並び に 項目 が 残っ て いな い 場 合 , 書式 制御 を 終了 させ る 。 
WRITE (6, 1) 


TORMAT(O スー , FT10.1. 7 台 Y 学 計 P1OH) 
メー の 文字 と 変数 駐 の 値 が 出力 され る 。 次 の : が な いと Y ニ の 文 
字 ま で 出力 され て し まう 。 


GS 8SP S88 
数 値 の 出力 で 正 符号 を 付け る か 付け な いか の 指定 に 用 いる 。 
SP が 現れ る と 以降 は 正 符号 が 付く 。SS が 現れ る と 以降 正 符号 
は 付か な い 。S が 現れ る と 処理 系 の 定め た 形 に 戻る 。 
WRITE (6, 1) 123, 45 
1 FORMAT ( '0', SP, 15, 2X, SS, T5) 
最初 の 出力 項目 123 は 正 符号 が 付き 十 123 と 出力 され る 。45 は 
正 符号 は 付か ず に 出力 され る 。 
⑫ ぁ P 
けた 移動 数 を 指定 する た め に 用 いる 。 
入力 で は 入力 欄 中 に 指数 部 の な ぃ デー タ に 対し て だ け 有 効 と な り . 
10 *※ *※( 一 ん ) 倍 され て 入力 され る 。 
入力 欄 編集 記述 子 入力 され た 値 
er レン 1PT6.1 1.23 
ーー456 2PF5.0 ー45600.0 
出力 で は 選 . の お よび 忌み . 2EBe に 対し て , 仮数 部 に 10※*※ ん 
が 掛け られ 指数 は を だ け 減 ら さ れる 。 
出力 され る 値 編集 記述 子 出力 欄 
0.1234 メ 102 1PEB10.3 1.234 包 二 01 
0.45678x 10-? 3P 包 10.1  、456.8E セ ー05 


F@ 入 出力 文 


けた 移動 数 は 各 入 出力 文 の 開始 時 点 で は 0 で ある 。 し か し , zP で 
一 度 変 更 す る と 以降 その けた 移動 数 を が 有効 に な る 。 
⑬BN  B ら 

BN を 指定 する と , それ に 続く 数値 の 入力 は , デー タ 中 の 空白 が す 
べ て 無視 され る 。 

B を 指定 する と , 逆 に デー タ 中 の 空 折 は , すべ て 0 (ゼロ ) と し 
て 扱わ れる 。 


入出 力 文人 F 


ル 組込み 関数 の 引用 
7z (g [, g] …) 


7 ヵ は 組込み 関数 の 個別 名 また は 総称 名 。c は 引数 。 


機能 - と よく 使用 され る 関数 は , 組込み 関数 と し て あら か じ め 用 意 
され て いる 。 総 称名 を 使用 し た 場合 , 関数 の 型 つま り 結 果 の 型 は 引 
数 の 型 に 依存 する 。 
① N=1IABS (K) 

N=ABS (区 ) 

絶対 値 を 求め る 関数 で は , 引数 が 整数 型 の 場合 , 個別 名 TABS を 
使う 。 ま た , 総称 名 は ABS な の で , 下 の よ うに 指定 し て も よい 。 


② 主 プロ グラ ム 側 サ プ ル ー チ ン 側 
TNTRTNSTC ALTIOG SUBROUTTNEE SUB (〒, 


: A, 選 ) 
OALL, SUB (ALOG, X, Y) | 
W=F (A+B) 


組込み 関数 の 個別 名 を 実 引数 に 指定 し , サブ ルー チン や 関数 副 プ 
ログ ラム に 渡す こと が で きる 。 この 場合 , INTRINSTC 文 で その 関 
数 名 を 指定 する こと 。 

② の 例 で は サブ ルー チン SUB の 仮 引数 世 と ALOG が 対応 する 。 
よっ て , サブ ルー チン 内 の W=E(A+B) は この 場合 W=ALOG 
(4 十 B) と な る 。 


F 人 ゆ 組 込み 関数 


ぁ 組込み 関数 一 覧 (一 部 分 ) 


型 変換 JP 実数 弄 | 整数 弄 
62 IFIX | 実数 型 | 整数 弄 


整数 型 | 実数 弄 
FLOAT | 整数 弄 隊 


ie に ーー 
clee |lmwle em 


四捨五入 | a 三 0 な ら ば jnt(a+0.5) ANINT ANINT | 実数 型 | 実数 型 
a く 0 な ら ば int(a 一 0.5) 
四捨五入 


ag 全 0 な ら ば int(a+ す 0.5) NINT NINT | 実数 型 | 整数 型 
整数 化 の 
a く 0 な ら ば int(a-0.5) 
絶対 値 ABS IABS | 整数 型 | 整数 弄 
ABS 実数 型 | 実数 弄 
剰 余 | ai 一 int(a」/az) * az 2 MOD MOD | 整数 型 | 整数 弄 
AMOD | 実数 型 | 実数 型 


az 人 0 な ら ば la 整数 型 | 整数 弄 
gz2 く 0 な ら ば ー 実数 型 | 実数 弄 


ai| 


gaz2 な ら ば a」ーaz 


gi ミ a2 な ら ば 0 


2 MAX MAX0 | 整数 弄 
実数 弄 


) 


max(a」, az … 


刺 数 弄 
実数 型 
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min(ai, az,… 


組込み 関数 人 の F 


AMIN1 


回 甘 
MIN1 | 実数 型 本 
本 "に ココ 
列 jn の な か の 部 占 還 Ep 
DEEIIEETIETIE ビ コ 
還っ 
四 昌 wo |,| leewlmwwlse 
pmlseto | 」| eee lewe lalawal 
本 コロ 
E 


由 HE 
の 
ラ 

潤 

難 

皿 


COS に 実数 弄 


文字 列 
の 大 小 
比較 


F ゆ 組込み 関数 


文 関数 
ぁ 文 関数 定義 文 
7z ([ の [, g] …])=e 


7&z は 文 関数 名 は 文 図 数 の 仮 引数 、e は 式 と する 。 


機能 > 文 関 数 を 算術 式 , 論理 式 あ る い は 文字 式 の 形 で 定義 する 。 
その 文 関 数 は 文 関数 定義 文 の ある プロ グラ ム 単 位 内 で 引用 で きる 。 
①E (X)=X**% る 


Y ニ =E (A+) 
文 関数 の 引用 は 関数 名 の 後に 括弧 で 囲ん で 実 引数 を 指定 すれ ば よ 


い 。① で は 変数 Y に は (A 十 B)* * 2 が 代入 され る 。 
②TINTEGER G 

G (X, N)=SQRT (X * N) 

文 関数 の 型 つ まり 結 果 の 型 は , 文 関数 名 の 型 で 決ま る 。 で は 
関数 名 G は 整数 型 な の で , 文 関 数 定義 文 の 式 の 値 が 整数 化 さ れ た も 
の が 結果 と な る 。 


文 関数 ⑳F 


主 プ ログ ラム 
を PROGRAM 文 
PROGRAM pg 


pg の 付け 方 の 規則 は , 変数 名 の 場合 と 同じ 。 た だ し , 型 は な い 。 


機能 - > PROGRAM 文 は 主 プ ログ ラム の 先頭 に 指定 し , その 主 プ 
ログ ラム に 名 前 を 付け る 。 


F@⑱ 主 プロ グラ ム 


p FUNCTION 文 


[fp] FUNCTION 7z ([g [, g] …]) 


pp は INTEGER, REAL, LOGICAL, CHARACTER[* /ez ヵ ] の 
いずれ か 。 Az は 外部 関数 名 。2 は 変数 名 , 配列 名 また は 仮 手続 き 名 
と し , 仮 引数 と いう 。 


機能 と と 関数 呈 プ ログ ラム の 先頭 に 必ず 指定 する 。 関 数 の 型 は 関数 
名 7z の 型 で 決ま る 。 FUNOTTON 文 の 先頭 で 型 を 指定 する こと も 
で きる 。 
① REAL, FUNOTTON F(X) 
TE' (X.GT.0) THREN 
F=SQRT (X) 
RBLS 
=0 
END TE 
RETURN 
END 
関数 の 値 は 関数 名 に 代入 され た 値 と な る 。RETURN 文 が 実行 さ 
れる と , 呼出 し 元 の プロ グラ ム 単 位 に 戻る 。 最 後 は BND 文 を 指定 す 
る こと 。 
関数 到 プロ グラ ム の 引用 は 関数 名 の 後に 括弧 で 囲ん で 実 引数 を 指 
定 する 。 
① の 関数 呈 プ ログ ラム FE は 次 の よう な 関数 を 定義 し て いる 。 
y ァ (*>0) 
79= 1 0 (xs0) 
ア げ (Z 十 め ) を 求め た けれ ば 決 の よう に 引用 する 。4 十 刀 を 実 引数 と 


加 プ ログ ラム F 


いい , 実 引 数 に は 式 が 指定 で きる 。 仮 引数 と 実 引数 は 先頭 か ら 1 対 
1 に 対応 する 。 
アニ 万 (4 十 ぢ ) 
関数 副 プロ グラ ム は 1 つの プロ グラ ム 単 位 な の で , その な か て 使 
用 する 変数 名 , 配列 名 , 文 番号 な を ど は すべ て ほか の プロ グラ ム 単 位 
と 独立 に な る 。 
②  EUNOTTON SUM (A, N) 
DIMENSION 4A(O:N) 
DO' 10 *T=0, 
10 SUM=SUM+A (1) 
RETURN 
END 
仮 配列 ( 仮 引数 の 配列 ) の 宣言 に , 仮 引数 また は 共通 ブロッ ク の 
要素 を 使用 で きる 。 こ の よう な 配列 を 整合 配列 と いう 。 
② で は 仮 配列 A の 宣言 に 仮 引数 N を 利用 し て いる 。 も し TI に 10 
渡さ れれ ば , 配列 A は A (0) 一 A (10) の 11 個 の 要素 を も つも の と 
て 宣言 され る 。 
り DIMENSTON 4A(O: *) 
整合 配列 の 宣言 で 仮 引数 を 指定 し た と ころ に * を 指定 する と , 擬 
寸法 仮 配列 に な る 。 こ の と き の 仮 配列 A の 大 き さ は , 対応 する 実 配 
列 ( 実 引数 の 配列 ) と 同じ し に な る 。 
④ REAL, FUNOTTION FE (X, SUB) 


CALL, SUB (X) 


EEND 
仮 引数 と し て ほか の 副 プ ログ ラム の 名 前 を 受け 取る こと が で きる 。 
これ を 仮 手続 き と い う 。 


F@ 玉 プロ グラ ム 


た だ し , 呼出 し 元 で は , 実 引数 に 指定 し た 副 プ ログ ラム の 名 前 を 
EXTERNAT 文 で 宣言 し て お く 必 要 が ある 。 

④ の 例 で は 仮 引数 SUB に サブルーチン 名 を 受け 取っ て いる 。 呼 
出し 元 の プロ グラ ム で サ プ ブル ー チ ン MULT を 渡す 場合 , 次 の よう 
に な る 。 

EXTEBRNATL. MULT 

Q=F (4A, MULT) 
p SUBHOUTINE 文 


SUBROUTINE szp[([g [,、g] …])] 


sz5 は サブ ルー チン 名 。g は 変数 名 配列 名 また は 仮 手続 き 名 と 
し , 仮 引数 と いう 。 


機能 -- サ ブ プルー チン 副 プ ログ ラム の 先頭 に 必ず 指定 する 。 
① SUBROUTTNE SUB (X, Y) 
TE (X.GT. 0) THER 
Y=SQRT (X) 
LSE 
0 
END TE 
RETURN 
END 
サブ ルーチン 副 プ ログ ラム の 引用 は CAL1 文 で 行う 。 
CALT, SUB (AB, 〇 ) 
この OALI 文 で 変数 C に サブ ルー チン て で 求め た 結果 が 返さ れる 。 
サ プ ブルー チン 副 プ ログ ラム も , 関数 一 プロ グラ ム 同 様 , 整合 配列 
と 擬 寸 法 仮 配 列 が 使用 で きる 。 


副 プ ログ ラム F 


p BLOCK DATA 文 
BLOCK DATA [sz2] 


su5 は 初期 値 設 定 副 プロ グラ ム の 名 前 。 


機能 -・ 初 期 値 設 定 玉 プ ログ ラム の 先頭 に 必ず 指定 する 。 
① BLOCK DATA 
COMMON /BLK/A, B, CO 
DATA A, B, O/1.0, 2.0, 3.0/ 
END 
初期 値 設定 プ ログ ラム で は , DATA 文 に より 名 前 付き 共通 プロ 
ッ ク の 各 有 要素 に 初期 値 を 設定 で きる 。 指定 で きる 文 は , IMPLTOCTT 
文 , PARAMETER 文 , DIMENSTON 文 , COMMON 文 , 
EQUTVALENORE 文 , DATA 文 , END 文 お よび 型 宣言 文 ど だけ で あ 
る (注釈 行 は あっ て も よい )。 


F@ 玉 プロ グラ ム 


k COMMON 文 


COMMON [/c2/] zzs を [[,]/ [c6]/z7s … 


c% は 共通 プロ ッ ク 名 。z/jsf は 変数 名 , 配列 名 , 配列 宣言 子 の 並 
び 。 


機能 と と 共通 プ ブロック の 宣言 を する 。 共 通 プ ロック 中 の デー タ は , 
異な る プロ グラ ム 単 位 で 引数 を 使わ ず 受け 渡し が で きる 。 
共通 ブロッ ク 名 の な いも の を 無名 共通 ブロ ッ ク と いう 。 
① COMMORN  A, B/BLK1/X, Y (10) 
最初 が 無名 共通 プ ブロッ ク の 場合 , 2 つの 斜線 は な く て も よい 。 配 
列 宣言 子 を 指定 し て , 配列 の 宣言 も 行え る 。 
① で は 要素 A, B の 無名 共通 プ ブロック , 要素 双 、Y( 配 列 ) の 共通 
ブロック BLK1 の 宣言 で ある 。 
② 主 プ ログ ラム サブルーチン 副 プ ログ ラム 
COMMON /BK/P,Q SUBROUTINE SUB 
: COMMON /BK/XX, Y 
CALT, SUB : 
: ーー ツン 
RETURN 
END 
共通 プ ブロック を 介し て , プロ グラ ム 単 位 問 で アー タ の や り と り が 
で きる 。 こ の 場合 , 各 プ ログ ラム 単位 に COMMON 文 が 必要 で あ 
る 。 要素 の 名 前 は 独立 に 付け られ る が , 対応 は 先頭 か ら 1 対 1 に 付 
けら れる 。 
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基本 文法 ハン ドブ ッ ク 


日 本 工学 院 八王子 専門 学校 情報 処理 


太田 宗雄 / 中 山 二 夫 


p この COBOL 共 本 文法 ハン ドブ ッ ク 
は , COBOL の 初心 者 か ら 中 級 者 まで 
を 対象 に 。 プロ グラ ミン グ 上 の 規則 や 
基本 命令 の 使い 方 な と を 解説 し た も の 
で す 。 

ぁ 文法 事項 は , 日 本 工業 規格 JIS COB 
OL C6205-1980 に 準拠 し て いま す 。 

ぁ 本 文中 の 一 般 形 式 に 表示 され た 記号 類 
は , 次 の 意味 を 表し ます 。 
①[ ] の な か は , 必要 に 応じ て 革 い 

て も 午 か な く て も よい 


② ( ) の な か は ,. この うち の と どれ か 
1 つ を 選ん で 書か な く て は な ら な い 

③[ ] か {( ) の あと に … が ある 場 
合 は 、 か っ こ 内 の 内 容 を 繰り 返し 革 
いて も よい 

④ _ (下線) の ある 耶 約 語 は , そ 
の 形式 を 使う 場合 に 必ず 午 か な けれ 
ば ならない 。 下線 の な い 予 約 語 は , 
剖 い て も 壮 か な く て も よい 

⑤ 二 , 一 , <, >, 三 は , 下線 が な く て も 。, 
その 形式 を 使う 場合 は 必ず 普 か な け 
れ ば な ら な い 
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COBOL と は 


COBOL の 歴史 

1959 年 5 月 。 ア メリ カ国 防 省 で , 事務 処理 用 の 共通 性 の ある 言語 
の 開発 を 検討 する 会 合 が 開か れ た 。 こ れ に コン ピュ ー タ メー カー, 
ユー ザ と が 協 狼 し , COBOL(COmmon Business Oriented Lan- 
guage 事務 用 共通 言語 ) を 開発 する こと に な っ た 。 こ の 作業 の 中 心 
に な っ た だ た の が , CODASYL (COnference on DAta SYstems 
Languages デー タ シ ス テム ズ 言 語 協議 会 ) で ある 。 

1960 年 4 月 に 第 1 回 仕様 書 が 発表 きれ, COBOL が 誕生 し た 。 こ れ 
が COBOL-60 で ある 。 以後 ,. ハー ドウ ェ ア の 機能 が 向上 する に 従っ 
て , 改訂 増補 され て 今日 に 至っ て いる 。 

日 本 に お いて も , COBOL の 標準 化 作業 が 日 本 工業 規格 (JIS) の 
下 で 行わ れる よう に な っ た 。 そ の 最初 の 規格 は , 1972 年 8 月 に 制定 
され た JIS COBOL-1972 で ある 。 その 後 , JIS COBOL-1980 が 制 
定 され て 現在 に 至っ て いる が , 間もなく 3 回 目 の JIS COBOL が 
発表 きれ る こと に な っ て いる 。 

p COBOL の 特徴 

COBOL が 開発 され た と き の 主 な 留意 点 は , 互換 性 , 記述 性 , 平易 
性 で あり , それ が その まま COBOL の 特徴 と な っ て いる 。 
① 互 換 性 : 現在 使用 し て いる コン ピュ ー タ か ら , より 上 位 の 機種 に 

設置 移行 する 場合 , プ ログ ラム を 作成 する 費用 , 労力 , 時 間 を 低 

減 で きる 。 
② 記 述 性 : 日 常 語 (英語 ) に 近い 形式 で 記述 され る の で , プロ グラ 

ム 自体 が 文章 と し て の 機能 を も ち , これ に よっ て , 担当 者 間 の 意 

思 の 疎通 を 図る こと が で きる 。 
③ 平 易 性 : ハー ドウ ェ ア の 知識 を 熟知 し て いな く て も COBOL の 

文法 が 理解 で き , 簡単 に プロ グラ ム が 作成 で きる 。 

プロ グラ ム の 構成 @C 


プロ グラ ム の 構成 


プロ グラ ム は , コン ピュ ー タ に 対す る 指示 書 で ある 。 し た が っ て , 
その プロ グラ ム の な か に は ,“ ど の よう な デー タ を どの よう に 計算 処 
理 し , どの 装置 に どん な 形式 で 結果 を 書き 出す か ", と いう 情報 を 合 
ん で いな けれ ば な ら な い 。 

COBOL の プロ グラ ム は , 4 つの 独立 し た 部 (DLTVTSTON) と よ 
ば れる も の で 構成 され て ぃ る 。 4 つの 部 は 次 の 順序 で 記述 し な けれ 
ば な ら な い 。 

見 出し 部 (IDENTIFICATION DIVISION) 

COBOL プロ グラ ム の 「 見 出し 」 と も いう べき も の で , プロ グラ ム 
の 名 前 , 作成 者 名 作成 年 月 日 な ど に つい て 記述 する 。 

ぁ 環境 部 (ENVIHONMENT DIVISION) 

COBOL プロ グラ ム が 翻訳 , 実行 され る 場合 の コン ピュ ー タ の 機 
器 構成 お よび , 変換 され た 実行 用 プロ グラ ム を 実行 する 場合 の デア 
ー タ ファ イル と 入出 力 機器 と の 関連 な ど に つい て 記述 する 。 

p デー タ 部 (DATA DIVISION) 

処理 の 対象 と な る アー タフ ァイル , 作業 領域 と し て 定義 され る デ 
ー タ , お よび , プロ グラ ム で 使用 され る 定数 な どの 構造 , 大 きる , 
種類 な ど に つい て 記述 する 。 
手続 き 部 (PROCEDURFHE DIVISION) 

デー タフ ァイル を 読み , 計算 を 行い 、 その 結果 を 書き 出す , と い 
う 一 連 の デー タ 処 理 を 行う の に 必要 な 手続 き に つい て 記述 する 。 

以上 の 4 つの 部 で 構成 され る COBOL プロ グラ ム は , COBOL で 
扱う 文字 を 用 いて 記述 する 。COBOL で 扱う 文字 は , 語 や 定数 な ど 
を 作る た め に 用 いら れる 。 文字 の 種類 は , 英字 (ムー), 数 字 (0 一 
9), お よび , その 他 の 特殊 文字 や カナ 文字 な ども 含ま れる 。 


C⑳ プ ログ ラム の 構成 


COBOL の ソー スプ ブロ グラ ム 例 


IDENTIFICATION DIVISION。 


PROGRAM-1D 。 URIAGE。 
AUTHOR。 TOKYO0 TARO. 
ENVIRONMENT DIVISION。 
CONFIGURATION SECTION。 
SO0URCE-COMPUTER。 CO0MP. 
0BJECT-COMPUTER。 CO0MP. 


INPUT-0UTPUT SECTION。 
FILE-CONTROL。 
SELECT URIAGE-F ASSIGN TO INP. 


SELECT  HYO-F ASSIGN TO 0UT- 
DATA DIVISION. 
FILE SECTION. 


FD URIAGE-F LABEL RECORD STANDARD- 
01 URIAGE-R 。 


02 TANKA PIC 9(3 ぅ ) . 

02 SURY0 PIC 9(3 ぅ ) . 
FD  HYO-F LABEL RECORD STANDARD。 
01 HYO-R. 

02 「ILLER PIC X(5) . 

02  H-TANKA PrC ZZ9。 

02 FILLER PIC X(5). 

02 H-SURYO PEC だ ZZ9 

02 ILLER PIC X(5) 


02  H-KINGAKU PIC ZZ2/Z29。 
MORKING-STORAGE SECTION. 


01  w-KINGAKU PIC 9(6) 

01 MIDASHI PIC X(28) VALUE IS 
タン カ スウ リョ ヨウ キン カ * ク "| 。 

PROCEDURE DIVISION. 

HAJIME . 


OPEN INPUT URIAGE-F OUTPUT  HYO-F. 
MRITE HYO-R FROM MIDASHI AFTER ADVANCING 
MOVE SPACE TO HYO-R- 


Y0MU-. 
READ URIAGE-F AT END GO TO OMARI.。 
COMPUTE WM-KINGAKU = TANKA * SURYO. 
MOVE TANKA TO  H-TANKA-。 
MOVE SURYO TO  H-SURY0-. 


MOVE  Mw-KINGAKU TO  H-KINGAKU.。 
MRITE  HYO-R AFTER ADVANCING 2 LINES. 


G0 TO YOMU. 

0MARI。 
CLOSE URIAGE-F  HYO-F- 
STOP RUN. 
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COBOL の 語 


COBOL の 語 は , 30 文 字 以 内 の 文字 列 で 構成 され る 。 文字 列 と は , 
COBOL の プロ グラ ム の 最小 の 構成 単位 で あり , 予約 語 と 利用 者 語 
が ある 。 
予約 語 

COBOL の 文法 上 , あら か じ め 用 途 の 決め られ た 語 を 子 約 語 と よ 
ぶ 。 すなわち, COBOL コン パイ ラ (翻訳 プロ グラ ム ) に よっ て , あ 
る 一 定 の 意味 を も つよ う 決 め ら れ て いる 語 で ある た め , プロ グラ マ 
は この 子 約 語 を 利用 者 語 (アー タ 名 , 手続 き 名 な ど ) に 用 いる こと 

で き な い 。 

予約 語 は 必要 語 , 補助 語 ., その 他 の 了 予約 語 に 分 けら れる 。 
必要 語 : ある 1 つの 文 を 書く と き に , 必ず 書か を けれ ば な ら な い 

語 を 必要 語 と いう 。 た と えば, 

ADD DATA-A TO DATA-B. 

と いう 命令 に お いて , 下線 部 分 の ADD と TO は , 加算 を 行わ せる 

場合 に は 必ず 書か な けれ ば な ら な い 必 要 語 で ある 。 
② 補 助 語 : COBOL の プロ グラ ム を 読み や すく する た め に , 適時 挿 

入 さ れる 語 を 補助 語 と いう 。 補 助 語 を 書く か 書か な いか は , プロ 

グラ マ の 任意 で ある 。。 たと. えば, 

TF' DATA-O TS LESS THAN DATA-D 

と いう 命令 に お いて , 下線 部 分 の TS と THAN は , 補助 語 な の 

で , 省略 し て も 文法 上 は 正しく 扱わ れる 。 
③ そ の 他 の 予約 語 : 連結 語 の OF, IN, AND, OR, 比較 文字 

の く , >, 三 , 表意 定数 の ERRO, SPAOER な ど が 含ま れる 。 
利用 者 語 

利用 者 が 決め る デー タ 名 定 手 続き 名 は 利用 者 語 と よ ば れ , 予約 語 
で な い 30 文 字 以 内 の 語 と し て 作成 され る 。 
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COBOL の 定数 


定数 は , それ を 構成 する 文字 その も の , また は , 表意 定数 の 指定 
に よっ て 決め られ る 。 定 数 の 種類 は , 文字 定数 , 数 字 定数 , 表意 定 
数 の いずれ か で ある 。 
ぁ 文字 定数 

文字 定数 と は , コン ピュ ー タ が 取り 扱う 文字 の 任意 の 文字 列 を , 
引用 符 (` ?) で 囲ん だ も の で ある 。 

実行 用 プロ グラ ム に お ける 文字 定数 の 値 は , 引用 符 を 外し た 文字 
列 そ の も の で ある 。 た と えば , 「COBOL プロ グラ ム 」 と いう 文字 多 
を 値 と し た いと き は , ヾ COBOL プロ グラ ム / と 書く 。 

数 字 定 数 

数 字 定 数 と は , 0 一 9 の 数 字 , 正負 記号 , 実 小数 点 か ら な る 文字 列 
で ある 。 数 字 定 数 を 作る さい の 主 な 規則 は , 次 の と お り で ある 。 
① 少 な く と も 1 字 の 数 字 を 含む こと 。 
② 正 負 記号 ( 十 , 一 ) は , 先頭 の 文字 位置 に 1 個 ど け 書 ける 。 
⑨ 実 小数 点 は , 右端 の 文字 位置 を 除い て 1 個 だ け 書 ける 。 

な お , 数 字 定 数 の 値 は , 数 字 定 数 内 の 文字 列 に よっ て 表 さ れる 代 
数 的 な 値 そ の も の で ある 。 

表意 定数 

表意 定数 は , 決め られ た 了 予約 語 で 指定 する 。 表 意 定数 の 単数 形 と 
複数 形 は 同じ 意味 に 解釈 され る の で , どちら を 使っ て も よい 。 


BRO oo 値 ゼ ロ ま た は 何 け た か の ゼロ を 表す 
PAO 昌 2 何 け た か の 空白 を 表す 
HITGH-VALUER …… の oe 何 け た か の 最大 文字 を 表す 
TOW-VATLUE で 必 … ド oooeoeeeetettrntnt 何 け た か の 最小 文字 を 表す 
ATT 定数 人 層 バー の ドド 定数 文字 列 の 何 回 か の 反復 を 表す 
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見 出し 部 


COBOL の プロ グラ ム は , 必ず , 見 出し 部 (IDENTTETCATTON 
DIVTSTON) か ら 書 か な けれ ば な ら な い 。 利 用 者 は , 以下 に 示す 形 
式 の 段落 の な か に , プロ グラ ム の 名 前 , 作成 者 の 名 前 , 作成 日 な ど 
の 情報 を 書く こと が で きる 。 

段落 の 見 出し を 用 いて , その 段落 に 合 ま れ て いる 情報 の 見 出し と 
する 。 段 落 の 見 出し は , A 領 域 (カラ ム 8 一 11) か ら 書 いて , その 
後に 終止 符 と 空白 を つけ た も の で ある 。 

最初 の 段落 と し て , 必ず PROGRAM-TD (プロ グラ ム 名 ) 段落 を 
記述 し 。 ここ に プロ グラ ム の 名 前 を 書か な けれ ば な ら な い 。 こ れ 以 
外 の 段落 の 記入 は 任意 で あり , 以下 に 示す 見 出し 部 の 構成 の 順序 で , 
この 部 に 書く こと が で きる 。 な お 注記 項 に は COBOL の 文字 な ら 何 
を 書い て も よい が , 必ず , ピリ オド と 空白 で 終わ ら な けれ ば な ら な い 。 
ぁ 見 出し 部 の 構成 


く 一般 形 式 > 
TDENTTETCATTON DIVTSTON. 
PROGRAM-TD、. プロ グラ ム 名 . 
[AUTHOR. 注記 項 . ] 
[INSTATLTATTON. 注記 項 . ] 
[DATE-WRITTEN. 注記 項 . ] 
[DATEB-COMPTLED. 注記 項 . ] 
[SECURTITY. 注記 項 . ] 
段落 の 機能 


段落 の 機能 は , 各 段 落 の 見 出し が その 意味 を 表し て いる 。 
PROGRAM-ID は プロ グラ ム 名 段落 。AUTHOR は 作成 者 名 段落 。 
INSTALTLATTON は 設置 場所 段落 。 DATEE-WRTTTEN は 作成 日 
付け 段落 。DATEE-COMPTLED は 翻訳 日 付け 段落 。SECURTTY 
は 機密 段落 。 
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環境 部 


環境 部 (RNVIRONMENT DTIVTSTON) に は , 構成 飾 と 入出 力 
節 が あり , 翻訳 お よび 実行 時 に 使用 する コン ピュ ー タ の 構成 と 入出 
力 さ れる デー タフ ァイル に つい て 記述 する 。 

y 環境 部 の 構成 


< 一般 形式 > 
ENVIRONMENT DIVTSTON. 
CONETIGURATTON SEOTIORN. 


SOUROCE-COMPUTER. 翻訳 用 計算 機 記述 項 . 
OBJECT-COMPUTER. 実行 用 計算 機 記述 項 . 
[INPUT-OUTPUT SEOTTION. 

ETLEB-CONTROL.. {ファ イル 管理 記述 項 .) …] 


Py 構成 公 (CDONFIGURHATION SEOTION) 

構成 節 に は , 翻訳 用 計算 機 と 実行 用 計算 機 の 特性 を 書く 。 
① 翻 訳 用 計算 機 段 落 (3BOUROE-COMPUTER) 

この 段落 で は ,。 COBOL の 原始 プロ グラ ム (source program) を 
翻訳 する コン ピュ ー タ の 名 前 を 記述 する 。 
② 実 行 用 計算 機 段落 (OBTECT-COMPUTER) 

この 段落 で は , 翻訳 され た 目的 プロ グラ ム (object program) を 
実行 する コン ピュ ー タ の 名 前 を 記述 する 。 
ぁ 入出 力 節 (INPUT-ODUTPUT SEOTION) 

入出 力 節 の ファ イル 管理 段落 (FILEE-CONTROL) で は , ファ イ 
ル に 名 前 を つけ , 外部 媒体 を 割り 当て る 。 す な わ ち , シス テム が 認 
識 し て いる 名 前 (作成 者 語 ) に 対し て , プロ グラ ム が 認識 する 名 前 
(ファ イル 名 ) を 割り 当て る 。 

< 一 般 形式 > 


ETLE-CONTROT. 
SEBLECT ファ イル 名 ASSITGN TO 作成 者 語 . 
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デー タ 部 


デー タ 部 (DATA DIVTSTON) は , 実行 用 プロ グラ ム が 行う 入 
力 処 理 , 内 部 処理 。 出力 処理 で 使用 きれ る デー タ に つい て 記述 する 。 
デー タ 部 の 主要 な 節 は , ファ イル 節 (FILE SEOCTTON) と 作 
業 場所 節 (WORKING-STORAGE SEOCTTON) で ある 。 フ ァ イ 
ル 節 で は 入出 力 さ れる ファ イル デー タ に つい て 定義 し , 作業 場所 節 
で は 定数 デー タ や 中 間 デ ー タ を 定義 する 。 
p デー タ 部 の 構成 
< 一 般 形 式 > 
DATA DIVTSTON. 
FILE SEOTTON. 
ファ イル 記述 項 居 
{レコ ー ド 記述 項 }】 … 
WORKTNG-STORAGE SECTTON. 
人 


レコ ー ド 記述 項 


ファ イル と レコ ー ド 
コン ピュ ー タ で デー タ を 処理 する 場合 , その 処理 に 必要 な デー タ 
を 用 意 し な けれ ば な ら な い 。 た と えば , 給与 明細 表 を 作成 する た め 
の 1 人 1 人 の 給与 デー タ や や , 売上 一 覧 表 を 作成 する た め の 1 件 1 件 
の 売上 アー タ な ど で あ る 。 こ の よう に 1 回 の 処理 に 必要 な 1 人 分 の 
デー タ や 1 件 分 の アー タ の こと を レコ ー ド と よぶ 。 
これ ら の レコ ー ド は , カー ド , 磁気 テー プ , 磁気 ディス ク な ど に 
記録 し て 保存 され る 。 こ の レコ ー 売上 レコ ー ド 
ド を 集め た も の を ファ イル と よ よ 。 
ファ イル に は , 通常 の 本 の よう に , 売上 ! の 23Pe 


表紙 , 裏 表紙 に 相当 する ラベ ル ご プ ツ 5 っ 


(jabel) が つけ られ る こと が 多い 。 ラル | ワー 各 周 還 昭 陸 間 
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ファ イル 節 と 作業 場所 節 


入出 力 フ ァイル を 用 いる 場合 は , 必ず ファ イル 節 を 記述 し な けれ 
ば な ら な い 。 ま た , 中 間 デ アー タ や 定数 ジー タ を 必要 と する と き は , 
作業 場所 節 を 記述 する 。 
py ファ イル 節 

ファ イル 節 は , ファ イル 記述 項 と それ に つづ くい くつ か の レコ ー 
ド 記述 項 で 構成 され る 。 
① フ ァイル 節 の 構成 。 /_ 訟 形 > 

FILE SEOTTON. 
人 | 林 
{レコ ー ド 記述 項 】 … 

② フ ァイル 記述 項 : ファ イル 記述 項 は , ファ イル の 名 前 と ファ イル 

の 物理 的 な 構造 (ラベ ル の 有無 な を ど ) を 与え る 。 


< 一 般 形式 > 

FD ファ イル 名 

RECORD TS STANDARD 
DaBRBS 夫 二 ): 


LABE エ 


レコ ー ド 記述 項 : レコ ー ド 記述 項 は , レコ ー ド の 階層 構造 に 従っ 
て デー タ 定 義 を 行う 。 
y 作業 場所 節 
作業 場所 節 は , 内 部 処理 で 発生 する 中 間 デ ー タ や 定数 デー タ の 項 
目 に つい て 記述 する 。 この節 で 定義 むす る デー タ 項 目 に は , 立 項目 
と 集団 項目 (ヒレ コー ド ) が ある 。 


① 作 業 場 所 節 の 構成 な セ ュ ) 
WORKING-STORAGE SECTTOR. 
[独立 項目 記述 項 ] … 
[レコ ー ド 記述 項 ] … 
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デー タタ 記述 項 
デー タ 記 述 項 は 。 ファ イル 節 の レコ ー ド 記述 や 作業 場所 節 の アー 


タ 記 述 の 内 容 を 具体 的 に 指定 する 。 
py デー タ 記 述 項 の 構成 


< 一 般 形 式 > 
デー タ 名 PIOTUREB 
人 則 計 
[VALUE TS 定数 ] 


レベ ル 番 号 [ ] TS pictire | 


p デー タ の 階層 と レベ ル 番 号 

COBOL で は , レコ ー ド デー タ を 細分 化し て 階層 的 に 定義 むる こ 
と が で きる 。 こ の 場合 , 論理 的 に それ 以上 細分 化 さ れ な い 項 目 を 基 
本 項目 と よび , 基本 項目 また は 集団 項目 の 集まり を 集団 項目 と よぶ 。 
また , 階層 の 対応 関係 を コー アデ ィング する と き は レベ ル 番 号 を 用 い 
る 。 レ ベル 番号 に は , 01 ユ 一 49 や 77 な ど が ある 。 

階層 関係 を ち も つ レコ ー ド デー タ は 01 ユ 一 49 の レベ ル 番 号 を 用 い , 
最上 位 の 階層 に は レベ ル 番 号 01 を , 下位 の 階 司 に は それ より 大 き 
い レ ベル 番号 を 与え る 。 

階層 関係 を も た な い デ ー タ 項目 は 独立 項目 と よ ば れ , 作業 場所 節 
で 定義 きれ る 。 こ の 項目 に は , レ ベル 番号 01 また は 77 が 用 いら れる 。 


く 01 一 個人 レコ ー ド レベ ル 番 号 

作っ | 学生 番号 | | 生年 月 日 | | | 

La Tn" 5 詳 を maTm 別 
レコ ー ド デー タ 独立 項目 


> デー タ 名 と FILLE 昌 
デー タ 名 と は , 利用 者 が 定義 する 語 で ある 。 こ の デー タ 名 は , 手 
続き 部 で 参照 され る 名 前 と な る 。 ま た , レコ ー ド 中 に 直接 参照 され 
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な い デ ー タ 項目 が ある 場合 は , FILLER (無名 項目 ) を 用 いる 。 
ヶ PICTURE 名 

PICTURE 句 で は , 基本 項目 お よび 独立 項目 の アー タ の 種類 や 大 
き さ を 指定 する た め に , PTOTURE 文字 列 を 用 いる 。 

基本 的 な を PTOTURE 文字 と こし て よく 用 いら れる も の に , 9, 叉 , 
8,。 V が ある 。9 は 数 字 1 けた を 表し , 又は 任意 の 文字 1 けた を 表 
す 。 ま た だ た, S と V は 9 と いっ し ょ に 用 いら れ , それ ぞ れ , 符号 と 想 
定 小数 点 位置 を 表す 。 な お , 8 と V は 項目 の 大 き さ に 数 を られ な い 。 
yy VALUE 名 

VALUE 句 は , 作業 場所 節 の デー タ 項 目 に 初期 値 を 与え る 。 
【 例 1) レコ ー ド デー タ の 定義 


01 KOJIN-R. 
02 GAKUSRE1. 
03 KUMI PICO XX(2). 
03 BANGO PICO X(3). 
02 SHIMET PTO XX(15). 
02 FILLER PICO X(10). 
02 UMARE. 
03 NEN PITO 9(2). 
03 TUKT PICO 9(2). 
03 NIOHI PIO 9(2). 


【 例 2 〕 独立 項目 の 定義 


wa ls le| emolirlzli li 


01 MOJI PICO XX(3) VALUE "ABOC". 
01 ATAT PT1O 9(3)V9 VALUE 123.4. 


デー タ 部 の 構成 人 WC 


編集 用 PICTURE 文字 


編集 用 PICTUR 選 文字 (編集 記号 ) の 定義 きれ て いる 編集 項目 の 
場合 は , 編集 が 行わ れる 。 
・ 編 集 用 PICTURE 文字 列 は ,、 デー タ の 種類 や 大 き さ を 指定 する と 
と も に , 編集 方 法 を 指定 する 。 


・ こ の 文字 列 は , 基本 的 な PICTURE 文字 (9, 駐 ) と 編集 用 PICTURE 
文字 の 組合 せ で ある 。 
Py 編集 用 PICTURE 文字 の 種類 


編集 用 
PICTURE 文字 


斜線 を 挿入 する 文字 位置 を 
| 0 。 | セロ を 挿入 する 文字 位置 を 示す 


コン マ を 挿入 する 文字 位置 を 示す 


通貨 記号 の 位置 を 示 


正負 を 示す 文字 (符号 ) の 位置 を 示す 


編集 方 法 の 種類 
編集 を 行う た め の 一 般 的 な 方 法 は , 挿入 編集 と ゼロ 抑制 で ある 。 


B( 空 白 ) / 0 , | 指定 され た 位置 に 挿入 され る 


特殊 挿入 ] ・( 実 小数 点 ) 小数 点 の 位置 に 挿入 され る 


指定 され た 位置 に 挿入 され る 


指定 し た 範囲 内 で 挿入 位置 が 移動 する 
3 


ンー プー 旨 定 し た 範囲 内 で 先行 する ゼロ を 空白 


指定 し た 範囲 内 で 先行 する ゼロ を “*" 
に 置き 換え る 


制 | 星 印 に よる ゼロ 抑制 


C@⑯ デ ー タ 部 の 構成 


HEDEFINE ら ( 再 定義 ) 句 


REDEETNES 句 は , コン ピュ ー タ の 同じ 記 億 領域 に 異な る デー 

タ 項 目 を 定義 する の に 使用 する 。 

p HEDEFINES 名 の 構成 
< 一 般 形式 > 
レベ ル 番 号 デー タ 名 - 1 REDEETINES デー タ 名 -2 

ぁ 使用 上 の 規則 

① テ データ 名 - 1 と デー タ 名 - 2 で 示さ れる デー タ 項 目 の レ ベル 番号 は , 
同じ し で な けれ ば な ら な い 。 

ファ イル 節 の 01 レベ ル の 記述 項 に REDEETNES 句 を 指定 す 
る こと は で き な い 。 

③ レ ベル 番号 01 を 除い て , デー タ 名 - 1 と デー タ 名 - 2 で 示さ れる 
デー タ 項 目 の け た 数 は , 同じ し 大 き さ で な けれ ば な ら な い 。 

(デー タ 名 - 1 の デー タ 項 目 の 記述 は , デー タ 名 - 2 の デー タ 記 述 の 
直後 に な けれ ば な ら な い 。 た だ し , 同じ 記憶 領域 を 3 回 以上 定義 
し て 利用 する 場合 に は , それ ら の 記述 を 連続 し て 行い , デー タ 名 
- 2 と し て 最初 に 定義 し た デー タ 項 目 の 名 前 を 指定 する 。 

⑥⑤ テ アー タ 名 - 2 の デー タ 記 述 は , OOCURS 句 を 含ん で は な ら な い 。 
し か し , デー タ 名 - 2 は , デー タ 記 述 に OCOURS 句 が 書い て ある 
項目 に 従属 し て も よい 。 


01 WORK-A. 
02 A1 PIC 9(5). 
02 AZ2. 
03 A21 PICO 9(97). 
03 A22 PIO 9(3). 
01 WORK-B REDEFINES WORK-A. 
02 B1. 
03 B11 PICO XX(2). 
03 B12 PIC 9(3). 


03 B21 PIC XX(3). 
8 03 B22 PIO 9(4). 
02 B3 PIC X(3). 


デー タ 部 の 構成 @C 


DCCUR ら (反復 ) 句 


OOCOURS 句 は , 同じ 項目 の デー タ 項 目 が 繰り 返さ れる と き , そ 
の 記述 項 を いち いち 指定 する 手間 を 省き , また , 添字 を つけ る た め 
の 情報 を 与 を る 。 OOOURS 句 で は , 表 (テー ブル , 配列 ) を 定義 する 。 
py DCCUR 句 の 構成 


< 一 般 形式 > 
OCOURS 整数 TTMES 


p 使用 上 の 規則 

① OOCOCURS 句 は, レベ ル 番 号 01, 77 で 指定 し た デー タ 項 目 に は 
使用 で き な い 。 

② OOCURS 句 の な か , また は それ に つづ く 項 目 の 記述 に は VAL 
UE 句 は 使用 で き な い 。 

③ OCGCURS 句 で 指定 し た デー タ 項 目 を 手続 き 部 で 参照 する と き 
は , 一 意 参照 を 行う た め に 添字 を 用 いる 。 

④ 添 字 は か っ こ を 用 い , OCCURS. 句 で 指定 され た 数 の 範囲 内 で 指 
定 する 。 

⑥⑤⑥ か っ こ 内 の 添字 が 2 つ 以 上 ある と き は , 左 の ほう が 階層 の 高い 項 
目 を 示す 。 

⑥ OCCURS 句 で 定義 きれ る 回 数 に より , 表 の 次 元 が 決め られ る 。 
【 例 1 〕 1 次 元 の 表 


01 TABLE-1. 

MA を 2 に | 02 A OOoCURS 3 TITMES 
(PiC) PTO X(4). 
【 例 2 〕 2 次 元 の 表 


陳 直 剖 本 6 補 2B) | 


01 TABLE-2. 
02 B OCCURS 3 TITMES. 
03 C OCCURS 4 TTMES 
PTO 9(1). 


C@ デ ー タ 部 の 構成 


定数 表 


表 の な か の デー タ は , 入力 動作 に よっ て 与え た り , 処理 の 中 間 結 
水 と し て 与え る こと が 多い が , 初期 値 と し て 与え る こと も 多い 。 こ 
の 初期 値 を も っ た 表 を 定数 表 と よぶ 。 

定数 表 は , その 表 の な か か ら 必 要 な も の を 探し 出し て デー タ 参 昭 
を 行う こと が 多い の で , いわ ゆる 表 引 き (テー ブル サー チ ) と いわ 
れる 処理 で 利用 され る 。 
pg HEDEFINES 句 使用 に よる 定数 表 の 定義 

定数 表 は , 初期 値 を も っ た 表 で ある こと か ら , OCOURS 句 と 
VALUEE 句 を 用 いて 定義 され る 。 その 方 法 は , 最初 に VALUE 句 に 
よっ て 定数 を 定義 し , その 領域 を 再 定義 し た 後 , OCCURS 句 で 表 を 
定義 する 。 


TABLE-VALUE 
(PIC) X (12) 
(VALUE) | 1 2 1 5 2 3 2 6 3 1 3 2 


( 再 定義 ) 


BU-TABLE 
BU-CODE BU-CODE BU-CODE BU-CODE BU-CODE BU-CODE 
x の 


01 TABLE-VALUE PICO X(12) VALUE "121523263132"・ 
01 BU-TABLE REDEFINES TABLE-VALUE. 
02 BU-CODE OOCOURS 6 TIMES PICO X(2). 


ぁ 集団 項目 に よる 定数 表 の 定義 
この 方 法 は , 集団 項目 で VALUE 句 を 用 いて 定数 を 定義 し , 下位 
レベ ル で OOCURS 句 を 用 いて 表 を 定義 むす る も の で ある 。 こ の 方 法 
で は , 文字 定数 だ その コン ピュ ー タ で 許さ れる 最大 けた の 範囲 を 超 
える と 使用 で き な い の で 注意 し な けれ ば な ら な い 。 
【 例 〕] 01 BU-TABTLEE VALUE "121523263132 
02 BU-COD 芯 OOCURS 6 TIMES PIO 文 (2)、 


(PiC) 


デー タ 部 の 構成 WC 


手続 き 部 の 構成 と 命令 


手続 き 部 は , 環境 部 で 指定 され た ファ イル か ら , デー タ 部 で 定義 
し た 記憶 領域 に デー タ を 入力 し , その デー タ を 演算 加工 し て 指定 さ 
れ た ファ イル に 出力 する た め の 手 続き を 記述 する 。 
p 手続 き 部 の 構成 

手続 き 部 の 構成 は , 次 の と お り で ある 。 


節 段落 < 命令 人 
半 段落 文 命令 
節 牙 文 命令 


(division) (section) (paragraph) (sentence) en (66) 
y 硬 令 の 種類 

この ハン ドブ ッ ク て で 扱う 命令 の 種類 は , 次 の と お り で ある 。 それ 
ぞ れ の 命令 は , アル ファ ベッ ト 順 に 掲載 し た 。 


命令 
ACCEPT, CLOS 世 , DISPTLAY, OPEN, READ, WRITE 


ADD, COMPUTE, DIVITDE, MULTIPTLY, SUBTRAOCT 
信 |MOVE, INSPEOT 


手続 き 分 岐 命令 |IGO TO,. PEREORM 


表 操 作 機 能 [SEARCH, SE 
整 列 機 能 |RELEASE, RETURN, SORT 


〔 補 足 〕 条件 命令 に は , TE 命令 の ほか に , 条件 指定 (AT END, 
INVALTD KEY, ON STZE ERROR) の ある 入出 力 命令 や 算 、 
術 命令 も 含ま れる 。 

無 条 件 命令 と は , 条件 命令 を 除く すべ て の 命令 で ある 。 
C@ 手 続き 部 の 構成 と 命令 


ACCEPT 病 令 


一 般 形式 

書き 方 1 
ACCEPT 一 意 名 [EROM 呼び 名 ] 
書き 方 2 (BAmm 
ACOEPT 一 意 名 FROM 1DAY 
eg 


P 命令 の 機能 と 規則 

① ACOEPT 命令 は , 少量 の デー タ を 指定 され た デー タ 項 目 に 格納 
する 。 
書き 方 1 は , 作成 者 が 定め た 装置 か ら 一 意 名 で 示す 領域 に デー 
を 読み 込む 。 

③ 書 き 方 2 は , FROM 句 で 指定 し た 命令 実行 時 の 日 付 ま た は 時 刻 
を , 生生 に 人 

り , yy は 西 歴 の 下 2 けた , mm は 


月 , dd は 日 を 表す 。 
・DAYーーyyddd 形式 で あり , yy は 西暦 の 下 2 けた , ddd は 1 月 
1 日 を 1 日 目 と し て 数 えた 通 日 を 表す 。 
・TTME 一 一 hhmmsstt 形式 で あり , hh は 24 時 間 表 示 , mm は 
分 , ss は 秒 , tt は 100 分 の 1 秒 を 表す 。 
④ 日 付 , 時 刻 の 格納 は , MOVE 命令 の 転記 規則 に 従う 。 
y 記述 例 
① AOCEPT SYATN-CODEE EROM CONSOLE. 
制御 車 (CONSOLE) か ら 社員 コー ド を 入力 する 。 
② AOOEPT HTZUKE EROM DATE. 
プロ グラ ム の 処理 日 を 格納 する 。 


手続 き 部 の 構成 と 命令 WC 


ADD 病 令 


y 一般 形 式 


書き 方 1 


ー 意 名 -1 
AD … PO (一 意 名 -2 [ROUNDED] ) … 
D 層 和 | (一 意 名 -2 [ ]) 


[ON SIZR ERRROR 無 条件 命令 


書き 方 2 
一 意 名 -1| | 一意 名 -2 
ADD ・GIVING {一 ROUNDE 
APD 0 ト {一 意 名 -。 [RO D] )… 
[ON SIgEB BRROR 無 条 件 命令 
y 病 令 の 機能 と 規 則 


① ADD 命令 は , 2 個 以 上 の 数 字 デ ー タ 項目 の 和 を と っ て , その 結果 
を 格納 する 。 

② 書 き 方 1 は , すべ て の デー タ 項 目 が 加算 対象 と な り , TO の 右 に あ 
る デー タ 項 目 に 結果 が 格納 され る 。 

③ 書 き 方 2 は , GIVING の 左 に ある デー タ 項 目 が 加算 対象 と な り , 
GIVING の 右 に ある デー タ 項 目 に 結果 が 格納 され る 。 

④ 一 意 名 は 数 字 基 本 項目 , 定数 は 数 字 定数 で な けれ ば な ら な い 。 

⑤ ROUNDED 句 を 指定 する と , 切捨て 部 分 が 四捨五入 され る 。 

⑥ ON SIZE ERROR 句 を 指定 する と , けた あふ れ の と き に 無 


条件 命令 が 実行 され る 。 
記述 例 
書き 方 1, 2 の 各 形 式 は , 次 の よう な 加算 と な る 。 
①ADD AA TO Bi B+TA っ B 
② の ADD AA B TO OU hi C 十 (A+B) 一 C 
③ADD 4A B GIVING 0 Goooiteti…i…… A+TB-…O 


C⑳ 手 続き 部 の 構成 と 命令 


CLOBE 病 令 
一役 形 式 
OLOSEE {ファ イル 名 ) … 


ぁ 命令 の 機能 と 規則 

① OLOSE 命令 は , ファ イル の 処理 を 終了 させ る 。 

② OLOSBE 命令 を 実行 し た ファ イル の レコ ー ド 領域 は , 使用 不可 能 
と な る 。 再び 利用 し た いと き は , OPEN 命令 を 実行 し な けれ ば な 
ら な い 。 

③ CLOS 命令 は , ラベ ル の ある ファ イル に 対し て ラベ ル の 処理 も 
行う 。 

④ OLOSE 命令 は , すでに 開か れ て いる ファ イル に 対し て だ け 実 行 
で きる 。 

y 記述 例 
お の お の の プロ セス チャ ー ト で 示さ れる ファ イル を 閉 ヒ る 場合 の 

記述 例 は , 次 の と お り で ある 。 


① CLOSE CARD-F". 
CLOSE PRINT-F. 


(②⑳ MAST-FILE TRANS-FILE 


CLOSE MAST-FTLE. 
CLOSE TRANS-FILE. 


が CLOSE REPORT-FTLE. 


夫 留 ま 7S( は 3 


CLOSE MAST-FTLE 
TRANS-EILE 
REPORT-ETILE. 


手続 き 部 の 構成 と 命令 ⑩C 


COMPUTE 命令 


> 一 般 形 式 
COMPUTE (一 意 名 [ROUNDED]) … = 算術 式 
[ON SIZE ERROR 無 条件 命令 
y 硬 令 の 機能 と 規則 


① COMPUTR 命令 は , 算術 式 の 計算 結果 を 格納 する 。 
② 右 辺 の 算術 式 の 値 を 左辺 の デー タ 項 目 に 格納 する 。 
⑨ 算 術 式 は 次 の いずれ か で ある 。 
・ 数 字 基 本 項目 の 一 意 名 か 数 字 定 数 
・ 上 記 の 一 意 名 や 定数 を 算術 演算 子 で つない だ も の 
・ 算 術 式 を か っ こ で 囲ん だ も の 
④ ROUNDED 名 を 指定 する と , 切捨て 部 分 が 四捨五入 され る 。 
⑤⑥ON SI ERROR 名 を 指定 する と , けた あふ れ の と き に 無 
条件 命令 が 実行 され る 。 
⑥ 算 術 演算 子 を 次 に 示す 。 


⑦ 算 術 式 で 表 さ れ た 演算 の 実行 順序 を 次 に 示す 。 
か っ この な か ーー べき 乗 一 乗除 算 つ 加減 算 
y 記述 例 
① COMPUTE CO ROUNDED = (A + B) * 1.5. 
A と B の 和 を 5 割増 し た 値 を 四捨五入 し て C に 格納 する 。 


C@ 手 続き 部 の 構成 と 命令 


DISPLAY 病 令 
一 般 形式 


DISPL.AY 人 科 [UPON 呼び 名 ] 
自 


Py 命令 の 機能 と 規則 
① DISPLAY 命令 は , 少量 の アー タ を 表示 する 。 
② DISPLAY 命令 は , 一 意 名 で 示す デー タ 項 目 や 定 数 の 値 を 指定 
し た 順に , 指定 し た 装置 に 表示 する 。 
⑨ 定 数 と し て 表意 定数 を 指定 する と , 表意 定数 の 意味 する 文字 の 1 
けた を 表示 する 。 た だ し , AL 定数 は 指定 で き な い 。 
y 記述 例 
① DISPLAY "END OFE JOBE". 
*EBND OFE JOB" と いう メッ セー ジ を 表示 する 。 
⑨② DISPLAY "ケン スウ = " KENSU. 
デー タ の 件 数 (KENSU) を 表示 する 。 
ある クラ ス の 成績 表 を 出力 する た め に , クラ スコ ー ド を 入力 させ 
る 手順 を , ACOEPT 命令 と DISPLAY 命令 で 組み 合わ せる 。 
kl: 
DTISPTLIAY "クラ スコ ー ト `^ ノ キー イン "". 
AOOEPT CLASS-CODE. 
DISPTLAY "クラ スコ ー ト ` OK? Y OR TI". 
AOCEPT Y-N. 
TE Y-N = "N" GO TO J1. 


手続 き 部 の 構成 と 命令 旬 C 


DIVIDE 病 信 


ぁ 一般 形式 
書き 方 1 
一 意 名 -】 
DTVTD 玉 定数 -1 TNTO (一 意 名 -2 [ROUND 巨 ] )… 
[ON STZ EERROR 無 条 件 命令 ] 
書き 方 2 : 
ー 意 名 -?] INTO 2 
TEE 開 守 ) ( 届 Se 
GTVTNG (一意 名 -3 [ROUND り ] )… 


[ON SITg 刀 刀 RROR 無 条 件 命令 ] 


書き 方 3 
一 意 名 -7] INTO] ほ 刺 
ーー 問 介 [定数 -2 
GTVTNG 一 意 名 -3 [ROUND 巨 り 」 


RMATNDpR 一 意 名 -4 
[ON 81Z 刀 包 RROR 無 条 件 命令 


あぁ 語 令 の 機能 と 規則 
① DIVTDE 命令 は , 除算 を 行い , 商 と 余り を 格納 する 。 
⑳ ず 一 意 名 は 数 字 基 本 項目 , 定数 は 数 字 定数 で ある 。 
②③ ROUNDgD 句 を 指定 する と , 切捨て 部 分 が 四捨五入 され る 


④ REIMATNDER 句 を 指定 する と , 剰余 を 一 意 名 - 4 に 格納 する 。 
⑤TINTO と BY は, 被 除 数 と 除 数 が 逆 に な る 


ぁ 記述 例 
書き 方 !, 2, 3 の 各 形 式 は , 次 の よう な 除算 と な る 
⑦ DIVTDgg 4 TNTO ie = 
の ⑫ 四 DV7TDE 4 BY GTIVTNO OO ooo の ee… み お ーッ 0 
(⑫ DVD IA TNTOWBIWVTWG (0 0 の Oo や … に だ 
E 互 MATNDBE 表 D. 余り つり 


CM 手 続き 部 の 構成 と 命令 


GO TO 高久 
と 一 朋 形 式 


閉 き 方 
GO "TO 手続 き 名 -7 


書き 方 2 
GO "TO (手続 き 名 -1)… 手 続き 名 -2  D 刀 ENDTNG ON 一 意 名 


ぁ 誠 令 の 機能 と 規則 
①GO TO 命令 は , 手続 き 部 の ある 部 分 か ら ほ か の 部 分 に 制御 を 移 
し , 実行 の 順序 を 変更 する 。 
② 書 き 方 1 の GO TO 命令 は , 実行 順序 を 手続 き 名 - に 
書き方 2 の GO TO 命令 は , 一 意 名 の 値 が 1, 2 …… Z で ある と 
き , それ ぞ れ の 手続 き 名 - 1, 手続 き 名 - 2 …… 夫 名 -z に 実行 
順序 を 変更 する 。 一 意 名 の 値 が 正 の 整数 以外 の 場合 は , 一 般 の 実 
行 順 診 に お ける 次 の 命令 に 制御 が 移る 。 
④ 書 き 方 2 に お いて , 一 意 名 は 整数 項目 で を けれ ば な ら を な を い 。 
ぁ 記述 例 
GO TO 命令 は , 単独 で 用 いる 場合 と , ほか の 命令 と 組み 合わ せ 
て 用 いる 場合 が ある 。 
⑦① GO "TO ユエ 手続 き -1 に 制御 を 移す 。 
の TP 4 > 20 GO TO 2 
A が 20 より 大 きい 場合 は , 手続 き J-2 に 制御 を 移す 。 
う ) READ OARD- 刀 AT END GO TO 了 -3. カー ド 
ファ イル を 読み 込み , も し 終わ りな ら ば 手続 き 『-3 に 制御 を 移す 。 
り GO TO 4-1 4-2 4-3 DEPENDTNG ON FUBDUN. 
区 分 フー ド が 1 の と き 4-1 に , る の と き 4- る に , ら の と き 4-9 
に それ ぞ れ 制御 を 移す 。 区 分 フー ド が 1, 2, 3 以外 の と き は , 次 


の 合 命令 が 実行 され る 。 
手続 き 部 の 構成 と 命令 @C 


1F 疫 


一 服 形式 
sp や ー 1 芯 LSE 命令 -2 
TE 条 作 ( 1 科 NO ( NEXT SR 
y 命令 の 機能 と 規則 


①TE 命 令 は , 条件 が 真 か 偽 か に よっ て 次 に 行う 動作 を 定め る 。 
② 条 件 を 評価 し て , 
・ 真 (YES) な ら ば , 命令 - 1 を 実行 する か , また は 次 の 文 (NEXTT 
SEBNTENCE) に 制御 を 移し , EELSE 以降 を 無視 する 。 
・ 偽 (NO) な ら ば , 世 LSEB の 前 まで を 無視 し , 命令 - 2 を 実行 する 
か , また は 湊 の 文 に 制御 を 移す 。 
③ 命 令 - 1, 命令 - 2 の な か に TP 命令 を 書い て も よい 。 
④ELSE NEXT SENTENOE の 直後 が 終止 符 の 場合 に は , こ 
の 句 を 省略 し て よい 。 
ぁ 楽 件 の 種類 と 書き 方 
条件 に は , 比較 条件 , 字 類 条件 , 正負 条件 , 条件 名 条件 な ど が あ 
る 。 な お , この 条件 は , PEREORM, SEEAROH の 各 命 令 に 共通 で 
あり , か っ こ が 任 意 に 使用 で きる 。 
① 比 較 条 件 : 大 小関 係 を 調べ る の に 使う 。 な お , GREATER, 
LESS, EQUAL. の 使用 も 可能 で ある 。 


< 一 般 形式 > 
析 IS [NOT] > | | 
定数 -1 IS [NOT] < 定数 -2 
| IS [NOT] = 算術 式 っ | 


C 人 で づ 9 手続 き 部 の 構成 と 命令 


TE A ぐ 5 
MOVE C TO D 
ELSE 
TE B NOT ぐ 10 
NEXT SENTENO 芯 
ELSE 
MOVE 巨 TO 革 . 


< 涼 レン シェ ーー 

@② 宇 類 条件 : 数 字 で あ  / 邊 じ > 
OR Ei 
を 調べ る の に 使う 。 3 


TEF A TS NUMERTC 
ADD 少 中 科 0O 細 日 
ELSE 
ADD 1 TO CO. 


⑨ 正 負 条 件 : 算術 式 の 代数 値 が ゼロ より 大 きい か , 小さ いか また は 
等 し いか を 調 


と < 一 般 形式 > POSTITIVE 
べ る の に 使う 。 全 希 率 rS [nom] !NgGAmTVE 
ZERO 


④ 条 件 名 条件 : デー タ 項 目 (条件 変数 ) の 値 が 条件 名 に 割り 当て ら 
れ て いる 値 に 等 し いか どう か を 調べ る の に 使う 。 
・ 条 件 名 は , デー タ 部 に お いて , デー タ 項 目 に つづ け て , レベ ル 番 
号 88 を 用 いて 記述 する 。 


88 条件 名 VALUEE 定数 -1 で eo oe 特定 の 値 
88 条件 名 VALUE 定数 -1 THRU 定数 -2………… 値 の 範囲 
88 条件 名 VALURE 定数 -1 定数 -2 Coil(ililit 値 の 組合 せ 


これ を , TE 条件 名 一 の 形式 で 利用 する 。 
⑤ 複 合 条件 : 各種 の 条件 を 論理 演算 子 (AND, OR, NOT) を 組み 
合わ せ て 使う 。 
手続 き 部 の 構成 と 命令 @C 


INSPEOT 命 令 
一 般 形式 


書き 方 1 
TINSPEGCT 一 意 名 -1 TALLYING 


(55 定数 -1 
| BADING| | 一 意 名 -3 


CHARACTERS 


一 意 名 -2 FOR 


書き 方 2 
TNSPECT 一 意 名 -1 REPLAOING 


CHARAOTERS BE | 


意 名 -5 
ALL 定数 -2 定数 -3 
LEADING BY 
FIRST 一 意 名 -4 一 意 名 -5 
Py 凍 令 の 機能 と 規則 


① INSPECT 命令 は , デー タ 項 目 中 の 文字 や 文字 列 の 出現 回 数 を 
数 を た り , それ ら を ほか の 文字 や 文字 列 で 置き 換え た りす る 。 

② TALTLYTING 句 は , 一 意 名 - 1 内 の 特定 の 文字 や 文字 列 を 数 えて , 
一 意 名 - 2 の 値 に 加え る 。 

③ REPLAOING 句 は , 一 意 名 - 1 内 の 特定 の 文字 や 文字 列 を , 定数 
- 3 や 一意 名 - 5 で 置き 換え る 。 

| ぁ 記述 例 

| ① 1IN8PECT A TATLTLYTNG B FOR ALL "*". 

デー タ 項 目 A 内 の 星 印 の 出現 回 数 を デー タ 項 目 B に 加え る 。 

| ② INSPECT A REPT.AOING LEADING へ "BY "O" 

デー タ 項 目 A 内 の 先行 する 空 提 を ゼロ に 置き 換え る 。 

③ 1IN8PECT A REPLAOTNG ALL "AA" BY "0". 
デー タク 項目 A 内 の すべ て の 空白 を ゼロ に 置き 換え る 。 


C ぬ 手続 き 部 の 構成 と 命令 


MOVE 病 令 
一般 形式 


MOVE (の? ) TO 名 


お の 5 本 

① MOVE 命令 は , データ を 転記 規則 に 従っ て , いく つか の デー タ 項 
目 に 転記 する 。 

②⑳@ 一 意 名 - 1 お よび 定数 - 1 は 送出 し 側 を 表し , 一 意 名 - 2 は 受取 り 側 
を 表す 。 

⑧③ 送 出し 側 , 受取 り 側が と も に 基本 項目 の 場合 を , 基本 項目 転記 と 
いう 。 

・ 受 取り 側が 数 字 項 目 ま た は 数 字 編 集 項 目 の 場合 , 小数 点 の 位置 
合せ お よび 必要 な ゼロ づめ が 行わ れる 。 な お , 数字 編集 項目 の 
場合 は , 編集 が 行わ れる 。 

・ 受 取り 側が 数 字 項 目 , 数 字 編集 項目 以外 の 場合 は , 左側 を そろ 
えて 転記 され , 余っ た けた に は 空白 づめ が 行わ れる 。 な お , 英 
数 字 編集 項目 の と き は , 編集 が 行わ れる 。 

④ 基 本 項目 転記 以外 は , 左側 を そろ えて 転記 され , 余っ た けた に は 
空白 づめ が 行わ れる 。 た だ し , 編集 は 行わ れ な い 。 
記述 例 
① MOVE A TO BEB. 
デー タ 項 目 A を デー タ 項 目 B に 転記 する 。 
② MOVE ZERO TO C. 
ー タ 項目 C を ゼロ に する 。 
③ MOVE SPAOE TO D. 
デー タ 項 目 D を 空 奄 に する 。 


手続 き 部 の 構成 と 命令 WC 


MULTIPLY 命 令 


一服 形式 
書き 方 1 

MULTTPLY 還っ 拉 BY (一 意 名 -2 [ROUNDED] ) … 

定数 -1 Ss 
[ON SIZE ERROR 無 条件 命令 ] 

書き 方 2 

Mormrpry lay oe っ | 

2 | 定数 -1 等 | 定数 -2 | 


GIVING (一 意 名 -3 [ROUNDED] )… 
[ON SIZE ERROR 無 条 件 命令 


y 病 令 の 機能 と 規則 

① MULTTPTY 命令 は , デー タ 項 目 ど う し の 積 を 計算 し , 結果 を 格 
納 す る 。 

② 一 意 名 は 数 字 基 本 項目 , 定数 は 数 字 定 数 で ある 。 

書き方 1 で は , すべ て の デー タ 項 目 が 積 の 対象 と な り , BY の 右 に 
ある デー タ 項 目 に 結果 が 格納 され る 。 

④ 書 き 方 2 で は , GIVING の 左 に ある デー タ 項 目 が 積 の 対象 と な 
り ,GTVING の 右 に ある デー タ 項 目 が , 結 果 を 格納 する 項目 と な る 。 

⑤ ROUNDED 句 を 指定 する と , 切捨て 部 分 が 四捨五入 され る 。 

⑥ ON SIZE ERROR 句 を 指定 する と , けた あふ れ の と き に 無 
条件 命令 が 実行 され る 。 


記述 例 

書き 方 1, 2 の 各 形 式 は , 次 の よう な 乗算 と な る 。 
① MULTTPTLY EAN ん 語り に 1CDOOOGSOOCYXZ ス CCCKY つ CCO BA …B 
の ②MUMMOEPTIYNA BB 1O.。- る co は 人 たき 6 
③ MULTITPLY A BY B GIVING 0. ……… BxA っ 0O 
④ MOrmTPLY A BY B GrVrNG o p. [8BXAーG 


C⑳ 手 続き 部 の 構成 と 命令 


OPEN 癌 令 


一 般 形式 
OPEN 1 {ファ イル 名 -1) … - 
OUTPUT (ファ イル 名 -2}) … 
病 令 の 機能 と 規則 


① OPEN 命令 は , ファ イル の 処理 を 行う た め の 人 準備 と する 。 
② OPEN 命令 実行 後 は ., その ファ イル に 対し レコ ー ド 領域 が 使用 
可能 に な り , OPEN 命令 以外 の 入出 力 命令 が 実行 で きる 。 
⑨③ OPEN 命令 は , ラベ ル の ある ファ イル に 対し て ラベ ル の 処理 も 
行う 。 
④ 処 理 モー ド (入出 力 区 分 ) を 指定 する 。 
・INPUT (入力 ) は , {ファ イル 名 - 1 }) … に 対し て , 読込 み だ け 
が 可能 な こと を 意味 する 。 
・OUTPUT (出力 ) は ,。 {ファ イル 名 - 2 ) … に 対し て , 書 出 し だ 
けが 可能 な こと を 意味 する 。 
ぁ 記述 例 
お の お の の プロ セス チャ ー ト で 示さ れる ファ イル を 開く 場合 の 記 
述 例 は , 次 の と お り で ある 。 
① OPEN INPUT CARD-F. 


OPEN OUTPUT PRINT-F'. 


OPEN INPUT MAST-FILE. 


MAST か OPEN INPUT TRANS-FTLE. 
OPEN OUTPUT REPORT-FTLE. 
ee3| また は , 
OPEN INPUT MAST-FTLE 
TRANS-FTLE 


REPORT 
-FILE 


OUTPUT REPORT-FTLE. 


手続 き 部 の 構成 と 命令 WC 


PEHFOUHM 敵 令 


一般 形式 
書き 方 1 
THROUGH 
元 be ル -2 
PEREORM 手続 き 名 内 | | 
書き 方 2 
THROUGH 一 意 名 -1 
PEREORM 手続 き 名 -1 之 き 名 - 
EREO 手続 き 名 隊 電 きる mwms 
書き 方 3 
THROUGH 
王 E M 統 ー 7M 
FERFORM 手続 き 名 | | | UNTTLI 条件 -1 
書き 方 4 
THROUGH 
PEREOR 読 き 名 -1 11 一 ーー ! 手 続き 名 - 
FORM 手続 き 名 隊 語 | | 


VARYTNG 一 意 名 -2 FROM 還 2 旨 


定数 -1 
一 意 名 -4 

BY UNTTI, 条件 -1 

RS 隊 | 区 


y 病 令 の 機能 と 規則 

① PEREORM 命令 は , 通常 の 実行 順 褒 か ら 離 れ て , 指定 され た 手 
続き を 実行 し , 再び も と の 実行 順序 に 戻る 。 

② 一 意 名 は , すべ て 数 字 基 本 項目 (整数 ) で な けれ ば な ら な い 。 

③ 定 数 は , すべ て 数 字 定数 (整数 ) で な けれ ば な ら な い 。 

④ 条 件 は , TP 命令 で 述べ た 条件 と 同じ し で ある 。 

y 記述 例 

① 書 き 方 1 は , 指定 され た 手続 き を 1 回 だ け 実 行 する 。 


PERFORM 手続 き 名 -1. | 凌 き を -1 | 


C ぺ 手続 き 部 の 構成 と 命令 


@ 革 き 方 2 は , 一 意 名 - 1 の 初期 値 
また は 整数 - 1 で 指定 され た 回 
数 だ け 手 続き を 実行 する 。 


チ 続き 名 -1 


PEREORM 手続 き 名 -1 
回 数 TIMES. 


昔 き 方 3 は , 条件 - 1 を 滴 足 する 
まで , 指定 され た 手続 き を 反復 
実行 する 。 


手続 き 名 -1 | 


PEREORM 手続 き 名 -1 
UNTIL 条件 . 


変化 させ な が ら , 指定 され た 手続 き を 反復 実行 する 。 一 意 名 - 2 が 
変数 , 一 意 名 - 3 また は 定数 - 1 が 初期 値 。 一 意 名 - 4 また は 定数 - 
2 が 増分 値 と な る 。 


④ 書 き 方 4 は , PRREORM 命令 実行 中 に , 一 意 名 の 値 を 規則 的 に 


初期 値 一 変数 


PEREORM 手続 き 名 -1 
VARYING 変数 
FROM 初期 値 BY 増分 値 
UNTIL 条件 . 


NO 


IgE 


手続 き 部 の 構成 と 命令 WC 


ピー ニー 
READ 部 流 
了 y 一般 形式 
RBBAD ファ イル 名 [INTO 一 意 名 ] AT END 無 条件 命令 


Py 命令 の 機能 と 規則 

① REBAD 命令 は 。 ファ イル か ら レ コー ド を 読み 込む 。 

② READ 命令 は , OPEN され て いる ファ イル か ら 順 次 , 処理 すべ 
き レ コー ド を 入力 領域 に 読み 込む 。 

③ 入 力 領域 は 。 DATA DTIVTSTON の TL SEOCTTON で 定義 
し た レコ ー ド 領域 で ある 。 

④ READ 命令 は , ファ イル 内 デー タ の 終わ り を 検出 し た 場合 の 手 
続き を , AT END 以降 に 書き 添え る 。 

⑤ INTO 名 を 指定 する と, 読み 込ま れ た レコ ー ド 領域 か ら , 一 意 名 
で 指定 され る 領域 に レコ ー ド 内 容 が 転記 され る 。 

ぁ 記述 例 
お の お の の フロ ー チ ャ ー ト で 示さ れる コー ディ ング 例 は , 次 の と 

お り で ある 。 


TAPE-F \ 終わ り 
を 読む 


J1 ヘ へ ジャ ンプ 


READ TAPE-E 
AT END GO TO J1. 


READ A-FTLE 


A-FILE | 終わ り AT END MOVE HTGH-VATUEE TO A-CODE. 
を 読む 

最大 値 

ーA-CODE 


C ゆ 手続 き 部 の 構成 と 命令 


SUBTRHAOT 病 令 


一 般 形 式 
書き 方 1 
一 意 名 -1| 
SUBTRAOCT …EROM (一 意 名 -2 [ROUNDED] ) … 
93 レー 3 51737 
[ON SIZE BRROR 無 条 件 命令 
書き 方 2 
SUBTRAOT 一意 名 -1| On | 一 間 名 -2 
に っ っ 二 :I ウ RSE55。 ピク 


GIVING (一意 名 -7 [ROUNDED] )… 
[ON SIZE ERROR 無 条件 命令 


Py 硬 令 の 機能 と 規則 
① SUBTRAOT 命令 は , 指定 され た デー タ 項 目 か ら ., いく つか の デ 

ー タ 項目 の 和 を 引き , 結果 を 格納 する 。 

一 意 名 は 数 字 基 本 項目 , 定数 は 数 字 定 数 で な けれ ば な ら な い 。 
③ ROUNDED 句 を 指定 する と , 切捨て 部 分 が 四捨五入 され る 。 
④ON SIZE ERROR 名 を 指定 する と , けた あふ れ の と き に 無 

条件 命令 が 実行 され る 。 


記述 例 

書き 方 1, 2 の 各 形 式 は , 次 の よう な 減算 と な る 。 
①8UBTRAOCT A FROM Bo BーA つ BB 
② の SUBTRAOTIMAUIBIYEIROTWI RG rnanvteendso Cー(A+B) っ C 
③ SUBTRACT A FROM BC ii 1 時 ユ な 
④ SUBTRAOCT A FROM B GIVING C. …… BーA …C 


手続 き 部 の 構成 と 命令 人 @C 


WRITE 仙 令 


y 一般 形式 


WRITE レコ ー ド 名 [EROM 一 意 名 -1] 


一 意 名 - 2 ] | LTNE 
議 旨 ADVANOTNG Ua ME 


y 凍 令 の 機能 と 規則 
① WRITE 命令 は , OPEN され て いる 出力 ファ イル に , 処理 し た 結 
果 を 書き 出す 。 
② FROM 句 を 指定 する と , 一 意 名 - 1 の 領域 か ら レ コー ド 名 で 指定 
され た 領域 に デー タ を 転記 し た 後に 書き 出さ れる 。 
プリ ント ファ イル に 対し て , 改行 や 改 ペ ー ジ を 指定 する た め に 
ADVANOING 句 が ある 。 
・ 一 意 名 - 2 また は 整数 は 改行 数 を 示す 。 
・PAGE を 指定 する と 改 ペ ー ジ が 行わ れる 。 
・AFTER と BEEOR 包 は , レコ ー ド の 書 出し を , 行 送 り 後に 行 
う か 行 送り 前 に 行う か の 指定 で ある 。 な お , この ARTEERR また 
は BEPEORE 以降 を 省略 する と , ARTER ADVANOING 
1 LTNE と みな され る 。 
ぁ 記述 例 


① WRITE PRINT-R 


PRINT-R AFETER ADVANCING 2 LINE. 
を 印字 する 


WRITE MAST-REO. 
MAST-REC 


を 書き 出す 


C@ 手 続き 部 の 構成 と 命令 


添字 に よる 表 操 作 


OCOCURS 名 で 定義 され た 表 の な か の 特定 の デー タ 項 目 を 一 意 に 
参照 する た め に , 添字 (subscript) が 用 いら れる 。 す な わ ち , 表 の 
各 要 素 は , その 出現 番号 を 添字 と し て 用 いる こと に より 一 意 と な り , 
表 操作 が 実現 され る 。 

流 字 に は , 整数 また は デー タ 名 を 書く 。 特 に , 添字 に デー タ 名 を 
書く こと に よっ て , その デー タ 領 域 の 値 で 出現 番号 を 指定 で きる の 
で , 反復 処理 が 可能 と な る 。 

次 の 例 は , 表 中 の 9 個 の デー タ 項 目 の 総和 を 求め る 処理 で ある 。 
例 1 は , TE 命令 を 用 いた コー ディ ング 例 で あり , 例 2 は , 
PEREORM 命令 を 用 いた コー ディ ング 例 で ある 。 


〔 例 1 〕 
MOVE ZERO TO W. 
MOVE 1 TO TI. 
LOOP. 
は 


GO TO NEXT-RTN. 
ADD AG) TO W. 
ADD 1 UO 記 届 
GO TO LOOP. 
NEXT-RTN. 


( 例 2 〕 


MOVE ZERO TO W. 

MOVE 1 TO 1 エ I. 

PERFORM SUB-RTN 
UNTIL 1 > 9. 


SUB-RTN. 
NEXT-RTN ADD AG) TO W. 
ADD 1 TO 1 エ 1. 
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指標 に よる 表 操 作 


OCOCURS 句 で 表 を 定義 する と き に , 指標 名 を 定義 する と, 指標 名 
に よる 表 操 作 を 行う こと が で きる 。 
INDEXED 日 Y 名 

OOCOURS 句 に つづ いて , INDEXED BY 名 を 指定 する こと に 
より , 指標 に 名 前 (指標 名 ) を つけ る こと が で きる 。 こ れ に よっ て , 
旨 標 と よ ば れる 領域 が 自動 的 に 確保 され る 。 

< 一 般 形式 > 

書き 方 1 


レベ ル 番 号 デー タ 名 -1 OOOURS 整数 TIMES 
[INDEXEBD BY {指標 名 -1)…] 


書き 方 2 
レベ ル 番 号 デー タ 名 -1 OOCOCURS 整数 TIMES 
ASOENDING の 誠 か 
人 22) | 
[INDEXED BY {指標 名 -1)…] 
y 指標 付け 


指標 名 に よっ て 表 操 作 を 行う とき は , 添字 と 同 し よう に , デー タ 
名 に 指標 を つけ て 一 意 に 参照 する 。 

指標 付け に は , 添字 と 同じ 方 法 の 直接 指標 付け と , ある 要素 を 基 
準 と し た 相対 指標 付け が ある 。 

【 例 〕 直接 指標 付け : TABLE-DATA (TX) 

相対 指標 付け : TABLE-DATA (TX 十 5) 

p SET 病 令 

指標 は 通常 の アー タ 項 目 と は 異な り , コン パイ ラ が 特別 に 用 意 す 
る 領域 な の で , 指標 の 値 を 設定 する の に , ADD 命令 , SUBTRAOT 
命令 お よび MOVBE 命令 な ど は 使用 で き な い 。 そ の た め に SRET 命 
令 が 用 意 さ れ て いる 。 
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< 一 般 形式 > 


書き 方 1 
と か 上 標 名 -2 
eg 較 23 | 
一意 名 jc) | 短 7T 
書き 方 2 


UP 
SE (指標 名 -3)… 人 


pg SEAHCOH 命令 

表 の な か か ら , ある 条件 に 合っ た 要素 を 探し 出す 操作 を 表 引 き と 
いう 。 COBOL で は , SEAROH 命令 に より , 指標 を 用 いて 表 引 き を 
行う こと が で きる 。 

SEAROH 命令 は , 指定 し た 条件 を 満足 する 表 の 要素 を 探し 出し , 
対応 する 指標 が その 表 の 要素 を 指す よう に する 。 

書き 方 1 は , 送 次 表 引 き を 行う と き に 使用 され る 。 こ の と まき 
SEAROH 命令 は , 逐次 , 指標 の 値 を 増加 させ て 表 の 要素 を 検査 する 。 

書き 方 2 は , 非 逐 次 表 引 き を 行う と き に 使用 され る 。 非 遂 次 表 引 
き で は , 2 分 表 引 き が よく 行わ れる 方 法 で ある 。 な お , 書き 方 2 で 
参照 され る 表 は , OCOURS 句 で 定義 する と き , KEY TS 句 を 用 い 
て 表 の 並び を 指定 し な けれ ば な ら な い 。 


< 一 般 形式 > 
書き 方 1 
SEAROH 一 意 名 -1 [AT END 無 条 件 命令 -1] 
無 条 件 命令 -2 ] 
人 較 SENTENCE) 
書き 方 2 
SEAROH ALL, 一 意 名 -1 [AT END 無 条件 命令 -1] 
pr 名 -2| 
デー タ 名 IS = ( 定 数 
WHEN 算術 式 
条件 名 
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整列 機能 


事務 計算 の 分 野 で は , 整列 処理 は きわ め て 重要 な 役割 を 果たす 。 
整列 に は , 主 記憶 の な か で 行う 内 部 整列 と , 補助 記憶 を 使っ て 行う 
外部 整列 が ある 。 COBOL で は , 外部 整列 を 行う た め に , 整列 機能 が 
用 意 さ きれ て いる 。 

COBOL の 整列 機能 は , 指定 し た キー に 従っ て ファ イル の レコ ー 
ド の 順序 を そろ を たり , そろ える 前 や そろ えた 後に 特別 な 処理 ( 入 
力 手 続き , 出力 手続 き ) を 行う こと が で きる 。 こ れ ら の 処理 は , 
SORT 命令 に よっ て 実現 する 。 


yy 整列 機能 の 構成 
整列 機能 の 全体 の 構成 は 次 の と お り で ある 。 


) 
ENVIRONMENT DIVTSTON. 
1 
TNPUT-OUTPU SEOCTTORN. 
FILE-CONTROL. 
) 
SETLEOT 整列 用 ファ イル 名 ASSTIGN TO 作成 者 語 . 
) 
DATA DIVTSION. 
FILE SECTTON. 
) 
SD 整列 用 ファ イル 名 . 
01 
) 
PROOEDURE DIVTSTON. 
) 


SORT 整列 用 ファ イル 名 
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整列 用 ファ イル の 定義 

整列 機能 で は , 補助 記憶 装 置 を 使用 する た め に , 整列 用 ファ イル 
を 定義 し な けれ ば な ら な い 。 和 整列 用 ファ イル は , 環境 部 で 定義 し た 
ファ イル に つい て , デー タ 部 に お いて , レベ ル 指 示 語 SD と ファ イ 
ル 名 を 書き , その 後に , レコ ー ド 記述 項 を 書く 。 

な お , 整列 用 フ ァイル に は , 

FIL 刀 SECTTOR. 

OPEN, READ, WRITE, SD 整列 用 ファ イル 名 . 
OLOSE な どの 通常 の 入出 力 命 
令 は 使用 で てき な い 。 
み SOHT 病 令 の 機能 

整列 を 行う と き は SORT 命令 を 使用 する 。SORT 命令 は , 整列 用 
ファ イル に 引き 渡さ れ た レコ ー ド を , 指定 され た キー に 従っ て 並べ 
替え る 。 

整列 に は , 単純 な 整列 と , 入力 手続 き ・ 出 力 手 続き を 含む 整列 と 
が ある 。 単純 な 整列 は , 入力 ファ イル の 全 レ コー ド を 整列 後 , 出力 
ファ イル に 書き 出す 。 こ れ に 対し て , 入力 手続 き ・ 出 力 手 続き を 合 
む 整 列 で は , 入力 ファ イル か ら 整 列 用 ファ イル へ ヘレ コー ド を 引き 渡 
すさ い , ある い は , 整列 後に 整列 用 ファ イル か ら レ コー ド を 引き 取 
る さい に , デー タ を 加工 する 処理 が で きる 。 


< 一 般 形 式 > 
ASCENDING 
SORT ーー 
77 者. 1 
ASCENDING 


DESCENDTNG 


| KEY (一意 名 -1)… 


[ON | | KEY (一 意 名 -2)…] 


THROUGH| 。 
人 PROOCEDURE IS 節 名 -1 敵 蘭 | 第 | 


USING (ファ イル 名 -2}… 
THROUGH 
に PROCEDURE TS 節 名 -3 意 計 9 


GTVING ファ イル 名 -3 
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整列 前 に デー タ を 加工 する と き は , INPUT PROOEDURE 名 
を 用 いて 入力 手続 き を 指定 し , 整列 後に デー タ の 加工 を 行う と き は , 
OUTPUT PROOCEDURE 句 を 用 いて 出力 手続 き を 指定 する 。 

入力 手続 き を 行わ な いと き は , USTNG 句 で 入力 ファ イル を 指定 
し , 出力 手続 き を 行わ な いと き は , GIVING 句 で 出力 ファ イル を 指 
定 す れ ば よい 。 

整列 の 基準 と な る キー は , ASOENDING (昇順 ) 句 ま た は 
DESCENDTNG (降順 ) 句 で 指定 する 。 指 定 し た 順番 に , 第 1 キ 
ー, 第 2 キー と いう よう に , 優先 順位 が 与 を た られ る 。 

p HELEAGE 病 令 と HETUHN 命令 

入力 手続 き に お いて , 加工 し た レコ ー ド を 整列 用 ファ イル に 引き 
渡す と き は , RETLEASE 命令 を 使用 する 。 また , 出力 手続 き に お い 
て , 整列 済み の デー タ を 引き 取る と き は , RETURN 命令 を 使用 す 
る 。 

RELiEASR 命令 中 の レコ ー ド 名 は , 整列 用 ファ イル の レコ ー ド 
名 で あり , RETURN 命令 中 の ファ イル 名 は , 整列 用 ファ イル の フ 
ァイル 名 で ある 。 こ の 2 つの 命令 は , 通常 の ファ イル で 使用 する 
WRITE 命令 , READ 命令 と ほぼ 同様 な 機能 を 果たす 。 た だ し , 前 


述 の よう の MGs OPEN 命 命令 , OLOS 選 命令 が 不要 な の で 注意 し な けれ 
ば な ら な い 。 


<RELEASE 命令 の 形式 > 
RETLEASEE レコ ー ド 名 [FROM 一 意 名 ] 


<RETURN 命 令 の 形式 > 
RETURN ファ イル 名 REOCORD [INTO 一 意 名 ] 


AT END 無 条件 命令 
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予約 語 表 Jrs cogor Cc 6205-1980) 


ACCEPT 
ACCESS 
ADD 
ADVANOING 
AFTER 

AL エ L 
ALPHABETTO 
ALSO 
ALTER 
ALTERNATE 
AND 

ARE 

AREA 
AREAS 
ASCENDING 
ASSIGN 

AT 

AUTHOR 


BEEFORE 
BLANK 
BLOCK 
BOTTOM 
BY 


CALL 
CANOEL 

CD 

CE 

CH 
CHARACTER 
CHARAOCTERS 
CLOCK-UNITS 
CLOSE 
COBOL 

CODE 
CODE-SE〒 
COLLATING 


COLUMKR 

COMMA 
COMMUNICATTOYY 
COMP 
COMPUTATTONAL 
COMPUTE 
CONETIGURATTOT 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORER 
CORRESPONDING 
COUNT 
CURRENOY 


DATA 

DATE 
DATE-COMPILED 
DATE-WRITTEN 
DAY 

DE 
DEBUG-CONTENTS 
DEBUG-ITEM 
DEBUG-LINE 
DEBUG-NAME 
DEBUG-SUB-1 
DEBUG-SUB - る 
DEBUG-SUB-3 
DEBUGGING 
DECIMAL -POINT 
DECLARATTVES 
DELETE 
DELIMITED 
DELIMTITE 民 
DEPENDING 
DESCENDING 
DESTINATION 


DETALL 
DISABLE 
DISPLAY 
DIVTDE 
DIVISION 
DOWRN 
DUPLTICATES 
DYNAMIC 


EGT 

ELSE 

EMI 

ENABLE 

END 
END-OF-PAGE 
ENTER 
ENVIRONMERNT 
EOP 

EQUAL 

ERROR 

ESI 

EVERY 
EXCEPTIORN 
EXTT 

EXTEND 


EFD 

FILE 
FILE-CONTROL 
FILLER 

FINAL 

FIRST 
FOOTING 

FOR 

FROM 


GENERATE 
GIVING 
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GO 
GREATER 
GROUP 


HEADTING 
HITGH-VALUE 
HIGH-VALUES 


T-O 
T-O-CONTROL 
IDENTTEICATION 
TF 

IN 

TINDE 交 
INDEXED 
INDIOATE 
TNITTAL 
INITIATE 
INPUT 
INPUT-OUTPUT 
INSPECT 
INSTALLATTON 
INTO 

INVALTID 

TS 


JUST 
JUSTIFTED 


KEY 


LABEL 
LAST 
LEADTING 
LEPFP 
LENGTH 
LESS 
LIMTT 
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LIMITS 
LINAGE 


LINAGE-COUNTER 


LTNE 
LINE-COUNTER 
LINES 
LINKAGE 

LOCK 
LOW-VALUE 
LOW-VALUES 


MEMORY 
MERGE 
MESSAGE 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLY 


NATIVE 
NEGATTVE 
NEXT 

NO 

NOT 
NUMBER 
NUMERIOC 


OBJECT-COMPUTER 


OCCURS 

OF 

OFE 

OMITTED 

ORN 

OPEN 
OPTTIONAL 

OR 
ORGANTIZATTORN 


OUTPUT 
OVERFLOW 


PAGE 
PAGE-COUNTER 
PERFEORM 

PF 

PH 

PIC 

PICTURE 
PLUS 
POINTER 
POSITTON 
POSITTVE 
PRINTING 
PROCEDURE 
PROCEDURES 
PROCEED 
PROGRAM 
PROGRAM-ID 


QUEUE 
QUOTE 
QUOTES 


RANDOM 

RD 

READ 
RECETVE 
RECORD 
RECORDS 
REDEETNES 
REE 芽 
REEFERENCES 
RELATTVE 
RELEASE 
REMAINDER 
REMOVA エ L 


RENAMES 
REPLAOING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 
RE 

RH 

RIGHT 
ROUNDED 
RUN 


SAME 

SD 

SEAROH 
SEOCTION 
SECURITY 
SEBGMENT 
SEGMENT-LTMIT 
SELEOCT 

SEND 
SENTENOCE 
SEPARATE 
SEQUENOE 
SEQUENTTAL 
SET 

SIGN 

SIZE 

SORT 
SORT-MERGE 
SOUROE 
SOURCE-COMPUTER 


SPACE 
SPACES 
SPECTIAL -NAMES 
STANDARD 
STANDARD-1 
START 
STATUS 

STOP 

STRTING 
SUB-QUEUE -1 
SUB-QUEU 選 - る 
SUB-QUEUE - る 3 
SUBTRAOT 
SUM 
SUPPRESS 
SYMBOLIC 
SYNC 
SYNCHRONIZED 


TABLE 
TALLYTNG 
TAPE 
TERMINAL 
TERMINATE 
TEBXT 
THARN 
THROUGH 
THRU 
TIME 
TIMES 

TO 

TOP 
TRAILING 
TYPE 


UNIT 
UNSTRTING 
UNTIL 


UP 
UPOR 
USAGE 
USE 
USING 


VALUE 
VALUES 
VARYING 


WHEN 

WITH 

WORDS 
WORKTING-STORAGE 
WRITE 


ZERO 
ZEROES 
ZEROS 


/N VI こさ. キ 
レコ 


出 
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和文 索引 (⑥ 音 入 


あー お 
引用 符 7 
英 数 字 編 集 項 目 。 29 


か ー こ 


加算 20。22 
環境 部 4, 9 
共 本 項目 12 

共 本 項目 転記 29 
機密 段落 8 
減算 22, 35 

語 4 


橋 成 節 9 
っ 


再 定義 句 15 

作業 場所 節 "10,11 
作成 者 語 9 
作成 者 名 段落 8 
作成 日 付け 段落 8 
算術 演算 子 22 
算術 式 22 

算術 命令 18 
実行 用 計算 機 段 徐 9 
実 小数 点 。 7 

指標 ~38,39 
指標 付け 38 

集団 項目 12, 17 
出力 手 統 き 40, 41 


条件 指定 "18 
条件 名 。 27 
条件 名 条件 "26, 27 
条件 命令 18 

除算 。 22, 24 

字 類 条件 26 

数 字 基本 項目 20, 22 
数 字 項 目 29 


数 字 定 数 7, 20, 22 
C@COBOL 案 引 


数 字 編 集 項目 29 


整数 項目 25 
正負 記号 7 
正負 条件 26 
整列 40 

整列 機能 。 40 


整列 用 ファ イル 41 
積 。 30 
設置 場所 段落 8 
ゼロ 抑制 編集 。 14 
相対 指標 付け 38 
想定 小数 点 13 
挿入 編集 。 14 
添字 16, 37 
た 一 と 
近 次 表 引 き 39 
直接 指標 付け 38 
定数 43 7 
定数 表 17 
デー タ 記 述 項 。 12 
デー タ 損 作 命令 。 18 
デー タ の 階層 12 
デー タ 部 4, 10 
デー タ 名 6, 12 
手続 き 部 4, 18 
手 統 き 分 岐 命令 18 
手続 き 名 6 
テー プル 16 
テー ブル サー チ 17 
特殊 文字 4 
独立 項目 12,13 
な ー の 
2 分 表 引 き 39 
入出 力 節 9 


入出 力 手続 き 40.41 
入出 力 命令 18 


は 一 ほ 
反復 名 16 


比較 条件 26 

比較 文字 6 
非 逐 次 表 引 き 39 
必要 語 6 

表 16 

表意 定数 6, 7 

衣 操 作 37, 38 

表 操作 機能 。 18 

表 引 き 17, 39 

ファ イル 10 

ファ イル 管理 段落 9 
ファ イル 記述 項 11 
ファ イル 節 10, 11 
ファ イル 名 9 
複合 条件 。 27 

プロ グラ ム 名 段落 8 
編集 記号 14 

編集 用 PICTURE 文字 14 
補助 語 6 

翻訳 日 付け 段落 8 
翻訳 用 計算 機 段 秒 9 


ま ー も 
見 出し 部 4 8 
無 条 件 命令 18 
無名 項目 13 
命令 18 
文字 。 4 
文字 定数 7 
文字 列 6 

や ー よ 
子 約 語 6 

ら ー ろ 
ラベ ル 10 
利用 者 語 6 
レコ ー ド 10 


レコ ー ド 記述 項 11 
レベ ル 番 号 。 12 
論理 演算 子 27 


欧文 索引 


ACOEPT 命令 19 
ADD 命令 20 
ADVANOING 句 36 


AFTER 36 
AL エエ 7 
AND 6, 27 


ASOENDING (昇順 ) 名 42 
ASSIGN TO 9 

AT END 18, 34 

AUTHOR 8 


BEEORE 36 


CLOSE 命令 21 

CODASYL 3 
COMPUTE 命 令 。 22 
CONETGURATTON SECTTON 


DATA-COMPILED 8 
DATA DTIVTSION 4。 8 
DATA-WRTTTEN 8 
DESCENDING (降順 ) 句 42 
DISPLAY 命令 23 
DIVTDE 命令 24 

DIVTSTON 4 

DOWN BY 39 


ELSE 26 
EENVIRONMENT DTVTSTION 
EQUAL 26 


FD 11 
FILE-CONTROL 9 
FITLE SECTTON 10, 11 
FILLER 12 

FROM 名 36 


GIVING 20, 30, 42 
GOTO 命 令 25 


COBOL 索 引 ⑱C 


9 


4.9 


GREATER 26 


HITGH-VALUE 7 


IDENTTETOATTON DTVISION 48 


TE 命令 26 

IN 6 

1INDEXED BY 名 38 
INPUT 31 


INPUT - OUTPUT SEOCTTION 9 
INPUT PROOEDURE 名 42 
INSPEOT 命 令 。 28 
INSTALTLATTON 8 

INTO 句 34 

TNVALID KEY 18 


KEY TS 句 39 


ABE エ 11 
hESS 26 
LIN 36 


LOW-VALUE 7 


MOVE 命 令 29 
MULTITPLY 命 令 30 


NEXT SENTENOE 26 
NOT 27 


OBJECT-COMPUTER 9 
OCCURS 名 16, 37 
OF 6 

OMTITTEED 11 

ON SIZE ERROR 
OPEN 命令 31 

OR 6, 27 
OUTPUPT 31 
OUTPUT PROCEDURE 名 42 


18, 20,22, 30, 35 


PAGE 36 
PERFORM 命 令 。 32 


C⑥⑧COBOL 索 引 


PICTURE 句 13 

PICTURE 文字 13。 14 
PROOEDURE DIVTSION 4 
PROGRAM-ID 8 


READ 命 令 34 

REDEFINES 句 15 

REBLEASE 命 令 42 
REMAINDER 句 24 

RETURN 命 令 42 

ROUNDED 句 20, 22, 24, 30, 35 


SD 41 

SEAROH 命 令 39 
SECURITY 8 

SELEOT 9 

SET 命令 38 

SORT 命令 41 

SOUROC 世 -COMPUTE 民 9 
SPACE 6, 7 
STANDARD 11 
SUBTRAOT 35 


THROUGH 32 
THRU 32 


UNTTL 32, 33 
UPBY 39 
USTNG 句 42 


VALUE 句 
VARYTNG 


13, 17 
32。 33 


WOREKTNG_STORAGE SECTTON 10,11 
WRITE 命令 。 36 


ZERO 6, 7, 27 


CASL 
FORTRAN 
COBOL 
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